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
Hola,
Me gustaria saber de donde sacar un tutorial para borrar, agregar, buscar registros en vb.net enlazado a una base de datos de acces, y me gustaria saber si me podrias ayudar con el viewgrid, el problema es como le puedo hacer para extraer la informacion cuando le de click a un campo de la base de datos ya mostrada en el view grid y como poder comparar datos en los campos de la base de datos con vb.net
Me gustaria saber de donde sacar un tutorial para borrar, agregar, buscar registros en vb.net enlazado a una base de datos de acces, y me gustaria saber si me podrias ayudar con el viewgrid, el problema es como le puedo hacer para extraer la informacion cuando le de click a un campo de la base de datos ya mostrada en el view grid y como poder comparar datos en los campos de la base de datos con vb.net
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
- Codigos para pokemon esmeralda - Guide
- Acces gratis - Programas - Bases de datos
- Codigos para 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