Como Guardar un MsFlexGrid en una Base de DAtos

  • 0 Respuestas
  • 3778 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5635
  • Actividad:
    53.33%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Como Guardar un MsFlexGrid en una Base de DAtos

  • en: Julio 26, 2010, 10:55:49 am
Código: Visual Basic
  1.  On Local Error Resume Next
  2.  Dim i As Integer
  3.  If Metida = True Then
  4.  Exit Sub
  5.  End If
  6.  For i = 1 To Me.ListadoDetalleFactura.Rows - 1
  7.  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
  8. Else
  9.   Dim db As Connection
  10.          Dim adoPrimaryRS As Recordset
  11.          Set db = New Connection
  12.          Set adoPrimaryRS = New Recordset
  13.          db.CursorLocation = adUseClient
  14.          db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasePath' base path es direccionamiento a la base de datos
  15.         adoPrimaryRS.Open "Select * From detalle_cargos_habitacion", db, adOpenStatic, adLockOptimistic
  16.          adoPrimaryRS.AddNew
  17.          adoPrimaryRS!id_registro = CodigoRegistro
  18.          adoPrimaryRS!id_servicio = Val(Me.ListadoDetalleFactura.TextMatrix(i, 1))
  19.          adoPrimaryRS!ticket = Val(Me.ListadoDetalleFactura.TextMatrix(i, 3))
  20.          adoPrimaryRS!id_empleado = CodU
  21.          adoPrimaryRS!id_sesion = Sesion
  22.          adoPrimaryRS!Fecha = Date
  23.          adoPrimaryRS!hora = Time
  24.          adoPrimaryRS!cantidad = Val(Me.ListadoDetalleFactura.TextMatrix(i, 4))
  25.          adoPrimaryRS!Total = Val(Me.ListadoDetalleFactura.TextMatrix(i, 5))
  26.          adoPrimaryRS.Update
  27.  End If
  28.  Next i
  29.  If Err <> 0 Then
  30.  MsgBox "No se han podido guardar todos los datos por el siguiente error " & Err, vbInformation, "Error"
  31.  Metida = True
  32.  Exit Sub
  33.  End If
« Última modificación: Julio 08, 2011, 10:09:15 am por ANTRAX »


 

Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2324
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Cómo ajustar la cadena introducida a formato de hora "00:00:00"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2427
Último mensaje Julio 26, 2010, 12:36:23 pm
por ANTRAX
Cómo ajustar la cadena introducida a formato numérico: "#,##"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2060
Último mensaje Julio 26, 2010, 12:38:04 pm
por ANTRAX
Manual de como bloquear CTRL+ALT+SUP, ALT+TAB, Y OTROS con Visual Basic en WinXP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2774
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como Imprimir en tamaño especial en Impresoras Matriciales en XP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2455
Último mensaje Julio 26, 2010, 11:14:36 am
por ANTRAX