como conectar visual basic 6.0 y access 2003
Publicado por Isa (45 intervenciones) el 25/04/2007 14:33:37
Hola! Disculpen las molestias. Me gustaria saber como conectar la BD de access 2003 con visual basic 6.0.
Valora esta pregunta


0
Private Sub Form_Load()
'''''''''''Me.Picture1.Picture = LoadPicture(App.Path & "FOTOSSECTOR CENTRO.JPG")
' nueva conexión
Set cnn = New ADODB.Connection
' Abre la conexión
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = " & App.Path & "BD_IMAGENES.mdb"
.Open
End With
' Nuevo Recordset para el DataComo
Set rs_Combo_Carga_Inicio = New ADODB.Recordset
''---------------------------------------
rs_Combo_Carga_Inicio.Open "SELECT NOMBRE From INICIO", cnn, adOpenStatic
Me.Combo1.Clear
Do Until rs_Combo_Carga_Inicio.EOF
Combo1.AddItem rs_Combo_Carga_Inicio!NOMBRE
rs_Combo_Carga_Inicio.MoveNext
Loop
''---------------------------------------
End Sub