'Declarar Variables
Global MiSQL1 As ADODB.Connection
Global MiCom As ADODB.Command
Global TOINV As ADODB.Recordset
Global GFolio1 As String
Global GFolio2 As String
Global MiConStr1 As String
'Conecta a SQL Server
MiConStr1 = "Provider=SQLOLEDB.1;" & _
"UID=sa;" & _
"PWD=abcdefgh;" & _
"Persist Security Info=False;" & _
"Initial Catalog=Reportes;" & _
"Data Source=MIPC\GUTIERREZ"
Set MiSQL1 = New ADODB.Connection
MiSQL1.CursorLocation = adUseClient
MiSQL1.ConnectionString = MiConStr1
MiSQL1.Open
MiSQL1.CommandTimeout = 0
'Ejecutar Procedimiento Almacenado y guarda resultados en recordset
Set MiCom = New ADODB.Command
With MiCom
.ActiveConnection = MiSQL1
.CommandType = adCmdStoredProc
.CommandText = "NombreDelProcedimientoAlmacenado"
.Parameters.Append MiCom.CreateParameter("SFolioI", adVarChar, adParamInput, 10) .Parameters("SFolioI").Value = Format(GFolio1) .Parameters.Append MiCom.CreateParameter("SFolioF", adVarChar, adParamInput, 10) .Parameters("SFolioF").Value = Format(GFolio2) .CommandTimeout = 0
.Prepared = True
Set TOINV = New ADODB.Recordset
Set TOINV = .Execute
End With
'Llenar un ListView con el recordset
ListView1.ListItems.Clear
GLng1 = 0&
If TOINV.EOF = False Or TOINV.BOF = False Then TOINV.MoveFirst
Do Until TOINV.EOF = True
Set LI = ListView1.ListItems.Add(, , Format(TOINV!DocNum))
LI.SubItems(1) = Format(TOINV!DocDate, "dd-mm-yyyy")
LI.SubItems(2) = Format(TOINV!DocTotal, "#,###,###.00")
LI.SubItems(3) = Trim(TOINV!CardName)
TOINV.MoveNext
Loop
'
TOINV.Close
Set TOINV = Nothing
MiSQL1.Close
Set MiSQL1 = Nothing
Set MiCom = Nothing
