abrir base de datos con visual basic 6
tengo una vasse de datos creada con formato de archivos de microssfot access 2000. creda con access del paquete de microssoft office-xp.
como debo de hacer para poder abrirla con visual basic6.
me explico.
quiero poder abrirla con el administrador visual de datos,
para crear un formulario con ella.
gracias de antemano.
como debo de hacer para poder abrirla con visual basic6.
me explico.
quiero poder abrirla con el administrador visual de datos,
para crear un formulario con ella.
gracias de antemano.
La puedes abrir de varias manera. Si usas DataControl este es un ejemplo.
Data1.DatabaseName = RutaDB
Data1.RecordSource = "TuTabladelabasededatos"
Data1.Refresh
If Data1.Recordset.BOF <> True Then
Data1.Recordset.MoveFirst
End If
Data1.Recordset.FindFirst Data1.Recordset.Fields("Campoindice").Name & "= '" & TxtCodigo & "'"
If Not Data1.Recordset.NoMatch Then
Data1.Recordset.Edit 'si quieres actualizar la tabla
' si quieres agregar datos a la tabla abierta usas la propiedad "ADD" del Recordset Ej. Data1.RecordSet.AddNew
Data1.Recordset.Fields("nombre")="El Nombre"
Data1.Recordset.Fields("Direccion")=txtDireccion
Data1.Recordset.Fields("telefono")= txtTelefono
Data1.Recordset.Updated 'para guardar los datos
End If
Data1.Recordset.Close 'Cierra el RecordSet
Data1.Database.Close 'Cierra la Base de Datos
Espero que te ayudes
Data1.DatabaseName = RutaDB
Data1.RecordSource = "TuTabladelabasededatos"
Data1.Refresh
If Data1.Recordset.BOF <> True Then
Data1.Recordset.MoveFirst
End If
Data1.Recordset.FindFirst Data1.Recordset.Fields("Campoindice").Name & "= '" & TxtCodigo & "'"
If Not Data1.Recordset.NoMatch Then
Data1.Recordset.Edit 'si quieres actualizar la tabla
' si quieres agregar datos a la tabla abierta usas la propiedad "ADD" del Recordset Ej. Data1.RecordSet.AddNew
Data1.Recordset.Fields("nombre")="El Nombre"
Data1.Recordset.Fields("Direccion")=txtDireccion
Data1.Recordset.Fields("telefono")= txtTelefono
Data1.Recordset.Updated 'para guardar los datos
End If
Data1.Recordset.Close 'Cierra el RecordSet
Data1.Database.Close 'Cierra la Base de Datos
Espero que te ayudes