[SOLUCIONADO] Guardar Filas de un MSHFlexgrid a una BD

[pamda]

Buenas amig@s...

antes que una consulta es un pedido,

¿ alguien de Uds. tendria un ejemplo de como guardar los datos de una rejilla a una tabla de access ?

que sea mediante código, y no con los controles enlazados.

para entender mejor.

Talvez no haya sido suficiente la búsqueda que he realizado en San Google, ya que no encontre un ejemplo explicado.

desde ya gracias por vuestro tiempo y disculpen la molestia.

[carbon]

Hola. No se realmente a que te refieres con "rejilla". Primero por qué no intentas establecer la conexión con la DB? Hay muchos códigos sobre eso en VB6 (sobretodo access!).

Y como ya es de costumbre preguntar, por qué usas VB6, teniendo en cuenta que no se actualiza desde 1996 o por ahí y está super obsoleto.

[pamda]

Iniciado por carbon

Hola. No se realmente a que te refieres con "rejilla". Primero por qué no intentas establecer la conexión con la DB? Hay muchos códigos sobre eso en VB6 (sobretodo access!).

Y como ya es de costumbre preguntar, por qué usas VB6, teniendo en cuenta que no se actualiza desde 1996 o por ahí y está super obsoleto.

Hola!

Muchas gracias por tomarte el tiempo en responder.

y tienes toda la razon de que no se actualiza desde 1996, pero como es para darle mantenimiento a un sistema ya hecho, que por cierto el que lo hizo no documento lo suficiente, y yo por mi parte ni me acuerdo más de como se hacian ciertas cosas en vb6

y para los que quieran, aqui esta una solución.

Código:

With Grid1
   For i = 1 To .Rows - 1
      If Len(.TextMatrix(i, 1)) > 0 Then
         Dato1 = .TextMatrix(i, 1)
         Dato2 = .TextMatrix(i, 2)
         Dato3 = Val(.TextMatrix(i, 3)) 'Supongamos que es un número,  poner  val es  una costumbre personal cuando no declaró la variable Dato3. Lo correcto seria declararla. 
      
         sql = "INSERT INTO TuTabla (Campo1, Campo2, Campo3) " & _
                  "VALUES ('" & Dato1 & "', '" & Dato2 & "', " & Dato3 & ")"
         cn.Execute sql, , adCmdText
      End If
   Next i
End With

Fuente

[carbon]

Excelente