Foro de elhacker.net

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
Public CNADO As ADODB.Connection   '// Conexion ADO
Public RSADO As ADODB.Recordset    '// RecordSet ADO
Public SQLADO As String            '// Parametro para SQL

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

Public Sub ConectarADO()
    Set CNADO = New ADODB.Connection    '// Crear la nueva conexion
    Set RSADO = New ADODB.Recordset     '// Crear nuevo recordset
    RSADO.CursorLocation = adUseClient  '// Tipo de cursor a utilizar
    CNADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=control_servicios; User=root;Password=;Option=3;"
    CNADO.Open                          '// Abrir la nueva conexion
End Sub

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

Public Sub CerrarADO()
    CNADO.Close            '// Cerrar la conexion
    Set CNADO = Nothing    '// Liberar conexion de la memoria
    Set RSADO = Nothing    '// Liberar recorset de la memoria
End Sub

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

Private Sub cmdGuardar_Factura_Click()
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar la Base Datos con ADO
        Call ConectarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    
        For I = 1 To ListView1.ListItems.Count
        
            V01 = Val(txtNFactura.Text)
            V02 = "#" & txtFecha.Text & "#"
            V03 = "'" & ListView1.ListItems.Item(I).Text & "'"
            V04 = Val(Format(ListView1.ListItems.Item(I).SubItems(1), ""))
            
            ComandoSQL = "INSERT INTO FACTURA (nfactura,fecha,servicio,cantidad) VALUES (" & V01 & "," & V02 & "," & V03 & "," & V04 & ")"
            CNADO.Execute ComandoSQL
        
        Next I
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    
End Sub

Private Sub cmdReporte_Click()
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar la Base Datos con ADO
       Call ConectarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

        ListView2.ListItems.Clear
        
        SQL = "SELECT * FROM FACTURA WHERE nfactura = '1000'"
        RSADO.Open SQL, CNADO, adOpenStatic, adLockOptimistic, adCmdText
        
        Do Until RSADO.EOF
            
            Set TLS = ListView2.ListItems.Add()
            With RSADO
            
                TLS.Text = cnServicios
                TLS.SubItems(1) = .Fields("nfactura") & ""
                TLS.SubItems(2) = .Fields("fecha") & ""
                TLS.SubItems(2) = .Fields("servicio") & ""
                TLS.SubItems(3) = Format(.Fields("cantidad"), "##,###") & ""
                RSADO.MoveNext
                
            End With
            
        Loop
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

End Sub