hola, le explico lo que deseo hacer:
(http://img408.imageshack.us/img408/8872/datagrid2ne.png)
este datagrid1 lo estoy utilizando de consulta conectado con un DataEnvironment. en la imagen como se muestra esta seleccionado uno de las filas(o registro), mi siguiente paso es dar click en la segunda figura del Toolbar1 que para mi es modificar y cuando este evento ocurra me muestre el frmcliente pero que en este frmproveedorcliente me muestre los datos del registro que estuvo selecionado(http://img442.imageshack.us/img442/4831/from3ta.png)
el problema es que los texbox del frmproveedorcliente me jala el ultimo registro
en conclusion¿que codigo debo poner para que al hacer click en la figura de modificar, me muestre el frmproveedorcliente y que los textbox de este frmproveedorclientes jale las que estuvo selecionada anteriormente en el datagrid1 del frmconsultaproveedorcliente?
nota: los textbox del frmproveedorclientes.. estan conectatos con dataenviroment
creo que tendrías que mover el puntero de la bd al registro seleccionado
Private Sub DataGrid1_Click()
with DataControl1
.Movefirst ' ' temueves al primer registro
' Con el método findFisrt búsca el registro y se posiciona alli
.FindFirst = "DNI_RUC = " & dataGrid.text
end with
formProveedor.show
End Sub
amigo celaya al ejecutar el codigo que me das... me sale error 424, se requiere un objeto.
me sombrea la parte de .movefirst
Cita de: CeLaYa en 23 Enero 2007, 23:53 PM
creo que tendrías que mover el puntero de la bd al registro seleccionado
Private Sub DataGrid1_Click()
with DataControl1
.Movefirst ' ' temueves al primer registro
' Con el método findFisrt búsca el registro y se posiciona alli
.FindFirst = "DNI_RUC = " & dataGrid.text
end with
formProveedor.show
End Sub
el ejemplo que te di, es usando un Datacontrol, pero como tu usas el DataEnvironment, pues alli no se como sería exactamente, hay un manual de como hacer reportes con el Datareport y maneja tambien el dataenvironment, checalo a ver si viene algo que te ayude.
http://foro.elhacker.net/index.php/topic,151013.0.html
PD.
para el manejo de bases de datos siempre he usado DAO
ejem.
Dim BD as Database
Dim Tb as RecordSet
'Abrir BD
set BD = WorkSpaces(0).Opendatabase("c:\...\base.mdb")
'Abrir tabla
set tb = Bd.Openrecordset ("SELECT * FROM Tabla;")
'Listar los registros
while not(tb.Eof)
'Aqui llenas un listview
ListView1.ListItems.Add ,, tb!campo1
tb.MoveNext
wend
'Cerar tabla y BD
tb.Close
BD.Close
'Liberar memoria
set tb = nothing
set bd = nothing
[/close]