FAQ's de VB6

[GeoAvila]

pregunta:
como guardar los datos de un MsFlexgrid en una base de datos
repuesta

Código:

 On Local Error Resume Next
 Dim i As Integer
 If Metida = True Then
 Exit Sub
 End If
 For i = 1 To Me.ListadoDetalleFactura.Rows - 1
 If Me.ListadoDetalleFactura.TextMatrix(i, 1) = "" Then' nos basamo en una columna para determinar donde termina el area con texto.. o bien si contiene algo la linea del flexgrid
 Else
  Dim db As Connection
 		  Dim adoPrimaryRS As Recordset
 		  Set db = New Connection
 		  Set adoPrimaryRS = New Recordset
 		  db.CursorLocation = adUseClient
 		  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasePath' base path es direccionamiento a la base de datos
 		  adoPrimaryRS.Open "Select * From detalle_cargos_habitacion", db, adOpenStatic, adLockOptimistic
 		  adoPrimaryRS.AddNew
 		  adoPrimaryRS!id_registro = CodigoRegistro
 		  adoPrimaryRS!id_servicio = Val(Me.ListadoDetalleFactura.TextMatrix(i, 1))
 		  adoPrimaryRS!ticket = Val(Me.ListadoDetalleFactura.TextMatrix(i, 3))
 		  adoPrimaryRS!id_empleado = CodU
 		  adoPrimaryRS!id_sesion = Sesion
 		  adoPrimaryRS!Fecha = Date
 		  adoPrimaryRS!hora = Time
 		  adoPrimaryRS!cantidad = Val(Me.ListadoDetalleFactura.TextMatrix(i, 4))
 		  adoPrimaryRS!Total = Val(Me.ListadoDetalleFactura.TextMatrix(i, 5))
 		  adoPrimaryRS.Update
 End If
 Next i
 If Err <> 0 Then
 MsgBox "No se han podido guardar todos los datos por el siguiente error " & Err, vbInformation, "Error"
 Metida = True
 Exit Sub
 End If