1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Dim strConn As String
strConn = "Driver={Client Access ODBC Driver (32-bit)};System=192.168.109.3;Uid=BADGE;Pwd=GTIVDR"
Dim strSql As String
strSql = "SELECT CDANC, CDMOIC, CDJOUC, CDANSE, CDNOSE, CDNBJ, CDTP08, CDANCP, CDANEX FROM BADGEV5F.PCALND WHERE CDANC = " & Now.Year & " AND CDMOIC = " & Now.Month & " AND CDJOUC = " & Now.Day & ""
Dim conn As System.Data.Odbc.OdbcConnection
conn = New System.Data.Odbc.OdbcConnection(strConn)
conn.Open()
Dim CmdS As System.Data.Odbc.OdbcCommand
CmdS = New Odbc.OdbcCommand(strSql)
Dim da As Odbc.OdbcDataAdapter
da = New Odbc.OdbcDataAdapter(CmdS)
CmdS.Connection() = conn
Dim ds As DataSet
da.Fill(ds, "BADGEV5F.PCALND")
Dim dt As DataTable
dt = ds.Tables("BADGEV5F.PCALND")
Form3.CbAnnee.DisplayMember = "CDANC"
Form3.CbAnnee.DataSource = ds.Tables("BADGEV5F.PCALND")
Form3.CbAnnee.Refresh()
Form3.Show() |
Partager