Visual basic 6.0 y access 2007
Hola me gustaría saber un código para ingresar un nuevo registro desde visual basic 6.0 a una base de datos creada en access 2007.
Nota: solo me permite ingresar dos registros.
Para esta conexión utilizo un archivo de extensión (udl) más algo del siguiente código :
Private Sub buscar_Click()
Dim Buscado As String, Criterio As String
Buscado = InputBox("¿Que nombre quieres buscar?")
If Buscado = "" Then Exit Sub
Criterio = "vendedor Like '*" & Buscado & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find Criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese nombre")
End If
End If
End Sub
Nota: solo me permite ingresar dos registros.
Para esta conexión utilizo un archivo de extensión (udl) más algo del siguiente código :
Private Sub buscar_Click()
Dim Buscado As String, Criterio As String
Buscado = InputBox("¿Que nombre quieres buscar?")
If Buscado = "" Then Exit Sub
Criterio = "vendedor Like '*" & Buscado & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find Criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese nombre")
End If
End If
End Sub
Respuesta de drinfierno
1
Que tal como t va...
Bueno sobre insertar registros se tienes un copdigo de la siguientews forma
Adodc1. Recordset. Addnew
Adodc1. recordset(0) = texto1 :Adodc1. recordset(1) = texto2
adodc1. Recordset. Update
donde (0) y (1) es el campo q vas a guardar
espero t sirva amigo nos vemos
si tienes alguna consulta envime un mail a
[email protected]
Bueno sobre insertar registros se tienes un copdigo de la siguientews forma
Adodc1. Recordset. Addnew
Adodc1. recordset(0) = texto1 :Adodc1. recordset(1) = texto2
adodc1. Recordset. Update
donde (0) y (1) es el campo q vas a guardar
espero t sirva amigo nos vemos
si tienes alguna consulta envime un mail a
[email protected]
