Ayuda codigos para enlazar vb.net y acces
Cerrado
villegas44
Mensajes enviados
1
Fecha de inscripción
domingo, 14 de febrero de 2010
Estatus
Miembro
Última intervención
domingo, 14 de febrero de 2010
-
14 feb 2010 a las 18:40
satifiky - 22 mar 2010 a las 02:39
satifiky - 22 mar 2010 a las 02:39
Consulta también:
- Ayuda codigos para enlazar vb.net y acces
- Codigos para pokemon rojo fuego - Guide
- Enlazar datos de una hoja de excel a otra automáticamente - Guide
- Descargar acces - Programas - Bases de datos
- Codigos para pokemon esmeralda - Guide
- Codigos de counter strike 1.6 - Guide
1 respuesta
mira yo estoy utilizando dataenvironment en una base de datos llamada agencia, el automoil es una de las tablas de la base de datos
espero te ayude en algo
o Agregar- DEagencia.rsAUTOMOVIL.AddNew
o Guardar-DEagencia.rsAUTOMOVIL.UpdateBatch
o Buscar- im C As String
C = InputBox("Escriba el curp", "Informacion")
DEagencia.rsAUTOMOVIL.MoveFirst
DEagencia.rsAUTOMOVIL.Find "CURP='" & C & "'"
If DEagencia.rsAUTOMOVIL.EOF Then
MsgBox "No se encontro el registro", vbOKOnly, "Informacion"
DEagencia.rsAUTOMOVIL.MoveFirst
End If
End Sub
o Eliminar- If MsgBox("¿Esta seguro de elimnar el registro?", vbOKCancel, "Informacion") = vbOK Then
DEagencia.rsAUTOMOVIL.Delete
DEagencia.rsAUTOMOVIL.UpdateBatch
DEagencia.rsAUTOMOVIL.MoveFirst
Else
MsgBox "No se elimino el registro", vbOKOnly, "Informacion"
End If
End Sub
espero te ayude en algo
o Agregar- DEagencia.rsAUTOMOVIL.AddNew
o Guardar-DEagencia.rsAUTOMOVIL.UpdateBatch
o Buscar- im C As String
C = InputBox("Escriba el curp", "Informacion")
DEagencia.rsAUTOMOVIL.MoveFirst
DEagencia.rsAUTOMOVIL.Find "CURP='" & C & "'"
If DEagencia.rsAUTOMOVIL.EOF Then
MsgBox "No se encontro el registro", vbOKOnly, "Informacion"
DEagencia.rsAUTOMOVIL.MoveFirst
End If
End Sub
o Eliminar- If MsgBox("¿Esta seguro de elimnar el registro?", vbOKCancel, "Informacion") = vbOK Then
DEagencia.rsAUTOMOVIL.Delete
DEagencia.rsAUTOMOVIL.UpdateBatch
DEagencia.rsAUTOMOVIL.MoveFirst
Else
MsgBox "No se elimino el registro", vbOKOnly, "Informacion"
End If
End Sub