Como Guardar un MsFlexGrid en una Base de DAtos

Iniciado por ANTRAX, Julio 26, 2010, 10:55:49 AM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Julio 26, 2010, 10:55:49 AM Ultima modificación: Julio 08, 2011, 10:09:15 AM por ANTRAX
Código: vb
 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