Public Class FTRANSF_C
Dim vpf1 As Date
Dim strcnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\GESTION\GESTION.mdb"
Dim cnn As OleDb.OleDbConnection
' Dim orden As OleDb.OleDbCommand
Dim da As OleDb.OleDbDataAdapter
Dim ds As DataSet
Private Sub FTRANSF_C_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
vpf1 = FTRANSF.vpf
MsgBox(vpf1)
FTRANSF.Close()
End Sub
Private Sub vencimiento(ByVal vpf1 As Date)
cnn = New OleDb.OleDbConnection(strcnn)
OleDbSelectCommand1.CommandText = "SELECT TFACTURASR.VENCIMIENTO, " & _
"TPROVEEDORES.NOMBRE,TFACTURASR.IMPORTE,TFACTURASR.IMPORTET " & _
"TFACTURASR.FACTURANE,TFACTURASR.CONCEPTOP,TFCTURASR.FECHAE, " & _
"TFACTURASR.FACTURANR,TFACTURASR.FECHAP " & _
"FROM TFACTURASR INNER JOIN TPROVEEDORES ON " & _
"TPROVEEDORES.CLAVE = TFACTURASR.CPROVEEDOR " & _
"WHERE TFACTURASR.VENCIMIENTO =" & vpf1 & " " & _
"AND TFACTURASR.NOPAGAR = 0 AND TFACTURASR.PAGADA = FALSE " & _
"AND TPROVEEDORES.NOPAGAR = 0 AND TFACTURASR.FPAGO LIKE '" & 4 & "%'" & _
"ORDER BY TFACTURASR.VENCIMIENTO, TPROVEEDORES.NOMBRE"
ds = New DataSet
cnn.Open()
da = New OleDb.OleDbDataAdapter
OleDbSelectCommand1 = New OleDb.OleDbCommand
OleDbUpdateCommand1 = New OleDb.OleDbCommand
OleDbInsertCommand1 = New OleDb.OleDbCommand
OleDbDeleteCommand1 = New OleDb.OleDbCommand
da.SelectCommand = OleDbSelectCommand1
da.UpdateCommand = OleDbUpdateCommand1
da.InsertCommand = OleDbInsertCommand1
da.DeleteCommand = OleDbDeleteCommand1
OleDbSelectCommand1.Connection = OleDbConnection1
OleDbUpdateCommand1.Connection = OleDbConnection1
OleDbInsertCommand1.Connection = OleDbConnection1
OleDbDeleteCommand1.Connection = OleDbConnection1
da.Fill(ds, "TPROVEEDORES", "TFACTURASR")
DG1.DataSource = ds.Tables("TPROVEEDORES", "TFACTURASR")
DG1.Columns("VENCIMIENTO").HeaderText = "VENCIMIENTO"
DG1.Columns("NOMBRE").HeaderText = "NOMBRE"
DG1.Columns("IMPORTE").HeaderText = "IMPORTE"
DG1.Columns("IMPORTET").HeaderText = "IMPORTET"
DG1.Columns("FACTURANE").HeaderText = "FACTURANE"
DG1.Columns("CONCEPTOP").HeaderText = "CONCEPTOP"
DG1.Columns("FECHAE").HeaderText = "FECHAE"
DG1.Columns("FACTURANR").HeaderText = "FACTURANR"
DG1.Columns("FECHAP").HeaderText = "FECHAP"
DG1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
End Sub
Private Sub BS_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS.Click
Me.Close()
End Sub
End Class
Buenas tardes.
Quisiera saber si el código precitado es correcto para pasar datos a un DataGridView, basado en una consulta con variable incluida.
El código está basado siguiendo las instrucciones de un libro y a parte de que no me funciona, creo que es excesivo... tiene que haber algo más conciso.
Muchas gracias y saludos.