1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Dim cmdx As New IfxCommand
Dim da As New IfxDataAdapter
Dim s As String
Dim ds As New DataSet
cn.Open()
s = "select a.ncp,a.dco, a.mon from bkhis a, bknom b, bkcom c, evuti d where d.cuti=a.uti and a.ncp= c.ncp and c.cli='' and b.ctab='005' and a.dev=b.cacc and a.ncp like '7%' and a.sen ='D'"
cmdx = New IBM.Data.Informix.IfxCommand(s)
da.SelectCommand = cmdx
cmdx.Connection = cn
cmdx.Parameters.Add("ncp", ifxtype.varchar, 50, "ncp")
cmdx.Parameters.Add("dco", ifxtype.Date, 8, "dco")
cmdx.Parameters.Add("mon", IfxType.Decimal, 16.4, "mon")
da.Fill(ds, "Customer")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "Customer"
cn.Close()
cn.Dispose() |
Partager