Anónimo
Ayuda con la implementación de aplicación en visual basic 6 enlazada con base de datos access 2000
Hola que tal primero que nada buen día, tengo 2 problemas quisiera ayuda urgente tengo una base de datos en access 2000 en lazada a visual basic 6 mediant un adodc1 tengo un formulario el cual tiene un campo llamado vn que es un textbox como puedo hacer paraq cuando teclee un dato en est textbox haga una búsqueda en mi base de datos y verifique que se encuentra en la base, si si se encuentra que guard est campo en una nueva tabla y si no c encuentra que mand error por favor ayuda
1 Respuesta
Respuesta de luisinho18
1
Haz lo siguiente:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Cadena de Conexion"
If KeyAscii = 13 Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "Nombres like '" & Trim(Text1) & "%'"
If Adodc1.Recordset.AbsolutePosition < 0 Then
MsgBox "Registro no encontrado"
Else
MsgBox "Registro encontrado"
cn.Execute "Insert into tabla2 values (" & Text1.Text & ")"
End If
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Cadena de Conexion"
If KeyAscii = 13 Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "Nombres like '" & Trim(Text1) & "%'"
If Adodc1.Recordset.AbsolutePosition < 0 Then
MsgBox "Registro no encontrado"
Else
MsgBox "Registro encontrado"
cn.Execute "Insert into tabla2 values (" & Text1.Text & ")"
End If
End If
End Sub
Ok muchas gracias m sirvió de mucho pero tengo otra molestia ya aplique est código, pero al guardar en mi tabla si guarda los campos, pero lo que hac es ir sustituyendo los datos en el registro por ejemplo ejecuto una vez mi programa y guardo est dato ! 123456", lo ejecuto una segunda vez y ahora el dato a guardar es "89056" pero borra el primer dato y lo sustituye por est nuevo quisiera saber a que se deb por favor si puedes ayudarme t lo agradecería de corazón
Cuando tu ejecutas el insert con el objeto ado connection, este hace un insert directo a la tabla, en todo caso lo que creo te debe faltar es refresar el adodc1, lo puedes hacer con esta linea.
Adodc1. Recordset. Requery
Adodc1. Recordset. Requery