RESPUESTA A LA PREGUNTA 6558 - VISUAL BASIC


Espero don Juan te sirva lo siguiente :

Asumo que tienes conocimientos en Odbc y estas usando Vb 5.0 o 6.0 con Access 97 

Sigue los siguietes pasos :

1. 

Debes tener un controlador odbc (Dsn de sistema) que se llame "dsnAccess" (supuesto nombre) que conecta por medio de odbc a la base de datos access que tienes en tu maquina. 

Si no lo tienes puedes crearlo en el Panel de Control, luedo controladores ODBC de 32 Bits, le das DSN de sistema, le pones el nombre ( ojo este es el nombre que usaras en la conexion por ejemplo  "dsnAccess" y en Seleccionar Base de datos, escojes la base de datos del fichero de tu maquina)

Lo salvas y listo ( Existe una incompatibilidad del odbc de 32 bits en con VB 5.0 y la bases Access del Office 2000), por lo cual debes de bajar un parche si usas estos programas. www.microsoft.com  ojo !!!! solo si utilizas office 2000

2.

En Visual creas un formulario, le agregas el data control, un text con el nombre text1, un boton y escribes en el boton lo siguiente :

Private Sub Command1_Click()
Data1.DefaultType = 1 ' Use Odbc
'Se conecta a la base por medio de un usuario y una
' clave     
Data1.Connect = "odbc;Dsn=dsnAccess;uid=admin;pwd=''"
Data1.RecordSource = "select * from capas"
Data1.Refresh
    
Text1.DataField = "capa_id"

End Sub

la sintaxis  Data1.RecordSource = "select * from capas"
especifica una tabala de tu base de datos, en el caso mio
se llama capas y contiene un campo que se llama "capa_id"

3.

En el text la das en la propiedad datasource = data1

4
ejecutas con f5 le das click al boton e inmediatamante se despelga en el text las datos de la tabla capas de la base dedatos que seleccionaste en la el dsn del odbc.

5
Puedes pasarle las opciones de Uid y Pwd a la conexion por medio de text de la siguiente manera

Agregas 2 text mas al formulario y cambias en el command
la sintaxis

Private Sub Command1_Click()
Data1.DefaultType = 1 ' Use Odbc
'Se conecta a la base por medio de un usuario y una
' clave     
Data1.Connect = "odbc;Dsn=dsnAccess;uid='" &text2.text  & "';pwd='"& text3.text & & "'"
Data1.RecordSource = "select * from capas"
Data1.Refresh
    
Text1.DataField = "capa_id"

End Sub

Espero te sirva


Tovares Cr
tovares@costarricense.com

http://www.lawebdelprogramador.com