SI ES EN VISUAL BASIC : UTILIZO UN DATA CON CONEXION ODBC
LO HAGO DE LA SIGUIENTE MANERA
'*** PROCEDIMIENTO ABRIR BASE DE DATOS ***
Public Sub AbrirBD()
Set bdatos = OpenDatabase("App.path NOMBREBASEDEATOS.mdb")
'Asigna la variable bdatos a la base de datos y la abre
End Sub
Private Sub Form_Load() ////DEL FORMULARIO
Set bdatos = OpenDatabase(direccion)
Set TABLA = bdatos.OpenRecordset("NOMBRETABLA")
If TABLA.RecordCount > 0 Then
TABLA.Index = "PrimaryKey"
tABLA.MoveFirst
End If
End Sub
LUEGO:
TABLA.AddNew //CREA UN REGISTRO NUEVO EN LA TABLA
TABLA(0) = LABEL1.TEXT
TABLA(2)= LABEL1.TEXT
.
.
.
. ASI SUCESIVAMENTE HASTA VACIAR LOS CAMPOS EN LA TABLA
TABLA.Update ////ACTUALIZAS LA BASE DE DATOS CON EL NUEVO REGISTRO
TABLA.Index = "PrimaryKey" //ASIGNAS LA CLAVE PRINCIPAL EN LA TABLA
ESPERO Q T AYUDE ESTE PEQUEÑO CODIGO
