'-----> En un Módulo con las referencias que necesita
Código:
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
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
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
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
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
Ya dentro del formulario
Guardar registro en la tabla Factura
Código:
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
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
'// 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
Crear un Reporte en el Control ListView solo me interesa crear en este control "ListView"
Código:
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
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
'// 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
Alguien seria tan amable de crear un tutorial de esta forma en VB.NET yo estoy procurando hacer en Visual Studio 2010