comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Como Guardar un MsFlexGrid en una Base de DAtos

  • 0 Respuestas
  • 2871 Vistas

0 Usuarios y 2 Visitantes están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5411
  • Actividad:
    20%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« 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 »


 

¿Te gustó el post? COMPARTILO!



Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1458
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Cómo ajustar la cadena introducida a formato numérico: "#,##"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1249
Último mensaje Julio 26, 2010, 12:38:04 pm
por ANTRAX
Cómo ajustar la cadena introducida a formato de hora "00:00:00"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1627
Último mensaje Julio 26, 2010, 12:36:23 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: 1918
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como pasar de un texto a otro usando Enter

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1665
Último mensaje Julio 26, 2010, 10:28:10 am
por ANTRAX