Consulta...

en un formulario muestro un Datagrid con datos de una base de datos, y.... cuando saco los datos de ese formulario (Datagrid) necesito que se muestren en otro datagrid que esta en el formulario principal. ¿hasta ahi se entiende?. Los datos se pasan bien de un Datagrid a otro, pero el problema radica cuando...los pasa, el datagrid principal como que no se actualiza, y para ver los nuevos datos tenes que salir y volver a entrar al programa. ¿Como puedo hacer para que cuando apenas pase los datos ya se muestren?....

muchas gracias...

Es de suponer que sea suficiente con que refresques la grilla: DataGrid1.Refresh

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

Si lo hago pero no actualiza....

no se que sera...

Pues haz el favor de adjuntar el código relacionado con ese procedimiento, a ver si damos con el quid... Porque si no, vamos a estar dándole vueltas a si no has refrescado, si no has definido el datasource, si pitos, si flautas...

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

ESTO ES DEL FORMULARIO PRINCIPAL.

Private Sub Form_Load()
On Error Resume Next
Set conectar = New ADODB.Connection
conectar.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LeO\RSAGRO.mdb;Persist Security Info=False"
conectar.Open
Call mostrarGrid
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
Call mostrarGrid

End Sub

Private Sub mostrarGrid()
On Error Resume Next
Set recorrido = New Recordset
Dim SQL As String
conectar.CursorLocation = adUseClient
SQL = "SELECT id,nombre,telefono,domicilio,localidad,cuit,produc to,cantidad,pu,pt,detalle FROM Tabla1"
recorrido.Open SQL, conectar
Set DataGrid1.DataSource = recorrido
DataGrid1.Refresh
End Sub


Y ESTO ES DEL FORMULARIO DONDE SE EXTRAEN LOS DATOS...


Private Sub recupera_Click()

Dim SQL As String

cID = DataGrid1.Columns(0).Text
nnombre = DataGrid1.Columns(1).Text

Dim msg As String

Dim rnombre As String
Dim rtelefono As String
Dim rdomicilio As String
Dim rlocalidad As String
Dim rcuit As String
Dim rproducto As String
Dim rcantidad As String
Dim rpu As String
Dim rpt As String
Dim rdetalle As String

rnombre = DataGrid1.Columns(1).Text
rtelefono = DataGrid1.Columns(2).Text
rdomicilio = DataGrid1.Columns(3).Text
rlocalidad = DataGrid1.Columns(4).Text
rcuit = DataGrid1.Columns(5).Text
rproducto = DataGrid1.Columns(6).Text
rcantidad = DataGrid1.Columns(7).Text
rpu = DataGrid1.Columns(8).Text
rpt = DataGrid1.Columns(9).Text
rdetalle = DataGrid1.Columns(10).Text

msg = MsgBox("Seguro de recuperar " + nnombre + " ?", vbQuestion + vbYesNo + vbDefaultButton2, "R.S AGRO - Eliminar registro")
If msg = 6 Then
Set recorrido = New Recordset

SQL = "INSERT INTO Tabla1(nombre,telefono,domicilio,localidad,cuit,Page Ranking oducto,cantidad,pu,pt,detalle)" & _
"VALUES('" & rnombre & "','" & rtelefono & "','" & rdomicilio & "','" & rlocalidad & "','" & rcuit & "','" & rproducto & "','" & rcantidad & "','" & rpu & "','" & rpt & "','" & rdetalle & "')"
conectar.Execute SQL


'conectar.Execute "DELETE * FROM Tabla1 WHERE id = " & cID & ""
'SQL = "DELETE * from Tabla1 where id_Tabla1=" & cID & ""
'recorrido.Open SQL, conectar
recupera.Enabled = False
reiniciarr.Show 1
Else
End If
End Sub

Bueno, yo creo ver que tomas los datos de D:\LeO\RSAGRO.mdb y los muestras en la grilla (ignoro por qué llamas dos veces a mostrarGrid...) Hasta ahí parece que todo va bien.

Luego hablas del FORMULARIO DONDE SE EXTRAEN LOS DATOS. Yo pensaba que los extraías de D:\LeO\RSAGRO.mdb... Supongo que hablas de rellenar las variables rnombre, rtelefono... rdetalle con los datos de la grilla. Tampoco consigo entender qué diferencia hay entre nnombre y rnombre... Y luego incrementas una nueva linea en Tabla1. Supongo que esto te lo haga también bien (aunque me llama la atención el que no le pasas el valor de Id).

A partir de ahí ya no puedo entender qué querías borrar... o qué es lo que hace reiniciarr... que es donde parece ser que pueda existir el problema de actualizar el datagrid... Pero, claro está, no creo que pueda modificarse ese datagrid si no cambias los registros del recordset que tiene asociado... Tú estás modificando Tabla1, no cambias nada en el recordset recorrido, por mucho que digas "Set recorrido = New Recordset". Y aun en el caso de que actualizases ese recordset, te ibas a encontrar con el problema de que tiene distinto número de campos, puesto que no has grabado Id... Tienes que cuidar esos detalles.

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

Extraigo los datos de RSAGRO.mdb

la base tiene hechas muchas tablas. Tabla1 donde se guardan los datos mas importantes, bajas, productos y telefonos. Cuando se elimina un cliente de Tabla1 automaticamente se borra de Tabla1 pero se guarda en bajas. ¿para que? por si el dia de mañana se necesitan "recuperar" datos.

La cuestion es que hay un grid en Form1 (formulario principal) y tambien esta el formulario (recuperacionn) donde tambien hay un grid. La diferencia entre ambos es que el grid del formulario principal muestra los datos de 'Tabla1' y el grid del formulario recuperacionn muestra los datos de 'bajas'. Cuando extraigo un dato de 'Bajas' y lo paso a 'Tabla1' no se muestra en tiempo real, hay que salir y volver a entrar para que recien ahi se vea.

¿me explique o sigo siendo confuso?

muchisimas gracias por su colaboracion...

Sigo sin entender qué es eso de
rnombre = DataGrid1.Columns(1).Text
rtelefono = DataGrid1.Columns(2).Text
...
para a renglón seguido hacer un INSER INTO de todos esos mismos datos en la misma Tabla1 de la que acabas de leer los datos. SALVO QUE estés hablando de 2 DataGrid1, uno en un formulario y otro en otro formulario...

Si es así, tú que lo sabes lo entiendes a la primera, pero los que no tenemos más referencia que las líneas que nos ofertas... nos volvemos micos. Yo, al menos, me siento muy perdido y sigo sin entender los pasos de tu código. Ya lo siento...

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

Hola

claaaro, es que hay 2 datagrid1

uno en un form (form1) y otro en el form (recuperacionn).

el problema no radica en las variables y le contenido, porque en si funciona a la perfeccion... el problema es que cuando se pasan datos de un formulario, en este caso recuperacionn, al formulario principal (form1). En teoria despues de pasar los datos, si se esta actualizando bien el datagrid1 tendria que aparecer al instante de hacer el paso de datos...pero no se muestra al instante, hay que salir y volver a entrar para ahi si ver que se hizo el paso de datos.

Pero yo sigo insistiendo, amigo leosantafesino; después de haber hecho el INSERT INTO ¿dónde indicas que se refresque el Form1.DataGrid1? Aparte de que, te repito, ese INSERT INTO te va a crear problemas si dejas NULO el campo Id, que se supone sea un campo básico...

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion