Bien tengo un formulario que busca 1 registro atravez de un boton para luego poder modificarlo o eliminarlo de la tabla EMPLEADOS cuyos campos son CODIGO,APELLIDOS,NOMBRES y los controles utilizados en mi form son text1,text2,text3,CMDBUSCAR,CMDMODIFICAR,CMDELIMIN AR
El codigo completo de mi aplicacion es el sigte es muy basico y facil de entender
Código:
Dim BD As ADODB.Connection
Dim RG_EMPLEADOS As ADODB.Recordset
Private Sub Form_Load()
Set BD = New ADODB.Connection
Set RG_EMPLEADOS = New ADODB.Recordset
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MODIFICARDATOS.mdb;Persist Security Info=False"
RG_EMPLEADOS.Open "SELECT * FROM EMPLEADOS", BD, adOpenStatic, adLockOptimistic
End Sub
Private Sub PRESENTAR()
With RG_EMPLEADOS
Text1 = !CODIGO
Text2 = !APELLIDOS
Text3 = !NOMBRES
End With
End Sub
Private Sub CMDBUSCAR_Click()
With RG_EMPLEADOS
C = InputBox("Ingrese dato", "")
.MoveFirst
.Find "CODIGO='" & C & "'"
If .EOF = False Then
PRESENTAR
CMDELIMINAR.Enabled = True
CMDMODIFICAR.Enabled = True
Else
MsgBox "NO EXISTE CODIGO"
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End If
End With
End Sub
Private Sub CMDMODIFICAR_Click()
With RG_EMPLEADOS
!CODIGO = Text1
!APELLIDOS = Text2
!NOMBRES = Text3
.Update
End With
CMDELIMINAR.Enabled = False
CMDMODIFICAR.Enabled = False
MsgBox "Se modifico el registro"
End Sub
Private Sub CMDELIMINAR_Click()
With RG_EMPLEADOS
.Delete
End With
CMDELIMINAR.Enabled = False
CMDMODIFICAR.Enabled = False
MsgBox "Se elimino el registro"
End Sub Mi pregunta es como hago para mostrar los registros de la tabla
EMPLEADOS en una datagrid y al pulsar sobre un fila llame al formulario que tengo, pero con los datos de la fila que se seleeciono en el datagrid.
Todo esto seria para ya no tener que buscar mediante un boton el registro que deseo modificar o eliminar
saludos y espero me haya dejado entender