Holaa!!
tengo el siguiente problema. visual no me tira ningun error, pero cuando abro la base de datos con Access...los datos no se guardaron en la tabla.
este es el codigo:
Dim conectar As ADODB.Connection
Dim recorrido As ADODB.Recordset
Private Sub cmdAgregar_Click()
On Error Resume Next
Dim SQL As String
SQL = "INSERT INTO tabla1(marca,modelo,codigo,fecha,nombrecliente,dir eccion,telefono,barrio,qslh)" & _
"VALUES ('" & marca & "','" & modelo & "','" & codigo & "','" & fecha & "','" & nombrecliente & "','" & direccion & "','" & telefono & "','" & barrio & "', '" & qslh & "')"
conectar.Execute SQL
End Sub
Private Sub Form_Load()
On Error Resume Next
Set conectar = New ADODB.Connection
conectar.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LeO\cartuchos.mdb;Persist Security Info=False"
conectar.Open
Por favor espero que me ayuden!!...
gracias!!