Modificar registros desde un datagrid con vb6.0

[franko1809]

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

[Avellaneda]

Al ser el DataGrid un control enlazado, cada vez que te muevas por él al mismo tiempo lo estás haciendo por el recordset.

Para cargar el DataGrid le pones esta instrucción en el Form Load (a continuación de abrir el recordset)

Set DataGrid1.DataSource = RG_EMPLEADOS

y para mostrar en los TextBox los datos del registros seleccionado

Código:

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
PRESENTAR
End Sub

y ya puedes modificar o eliminar los datos.

[franko1809]

Se presento lo siguiete, al agregar la linea que me diste es decir

RG_EMPLEADOS.Open "SELECT * FROM EMPLEADOS", BD, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RG_EMPLEADOS

1.-El datagrid no carga nada al ejecutar, a que se debe eso, acaso tengo que habilitar alguna opcion o algo, por que cargue los datos al datagird mediante un control adodc1 con la misma propiedad datasource y si lo cargo, esto me ha dejado algo intrigado

2.-Al cargar los registros con el adodc1 y colocar en el evento RowColChange la funcion PRESENTAR siempre ve el primer registro al seleccionar una fila, es decir si cambio de filas siempre me muestra el primer registro

Espero me puedas ayudar, saludos

[Avellaneda]

Prueba poniendo la propiedad CursorLocation del recordset del lado cliente antes de abrirlo:

Código:

Set RG_EMPLEADOS = New ADODB.Recordset
RG_EMPLEADOS.CursorLocation = adUseClient

[franko1809]

Perfecto ahora si corre pero que significa la linea RG_EMPLEADOS.CursorLocation = adUseClient

Ahora lo que falta es que el datagrid tiene que estar en un form1 y al hacer click o dobleclick en una fila llame a un form2 donde deberan estar cargados en los text los registros de la fila que se seleciono en el datagrid del form1 para poder modificarlos

[franko1809]

Alguien que aporte algunas ideas de como solucionar mi problema?

saludos

[franko1809]

Ya solucione el problema era de lo mas sencillo no se como nadie quizo responder.

Private Sub DataGrid1_DblClick()
Form2.Show
Form2.Text1.Text = DataGrid1.Columns(0).Text
Form2.Text2.Text = DataGrid1.Columns(1).Text
Form2.Text3.Text = DataGrid1.Columns(2).Text
End Sub

Ahora se presento otro problema.
¿Como actualizo el datagrid del form1 desde el form2 donde se hizo la modificacion de l registrp? o es imposible hacerlo y tendre que cerrar el form1 para volver a cargarlo desde el form2 espero su respuesta

[kevin_net]

Form1.Data1.Refresh ----->actualiza la data.
Form1.DBGrid.Refresh ------->actualiza el DBGrid.
yo lo pondria en el boton GUARDAR!
ESPERO TE SIRVA!

[SalomonSab]

yo creo que desde el 2008 hasta el 2011 han pasado varios añitos, asi que como dijo anteriormente ya esta solucionado creo que llegaste un poquito tarde. sin ofender.