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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
| Public Sub getQlqCh()
Dim oOleDbConnection = New OleDb.OleDbConnection(Me.getConnectionString())
oOleDbConnection.Open()
If oOleDbConnection.State <> ConnectionState.Open Then
Throw New DBException("La connection à la base de données n'a pas été correctement ouverte")
End If
Dim psql As String
psql = " SELECT dbradio.ressph.NDS, dbradio.ressph.NDS, dbradio.ressph.SEQP, medcpofb.sprphm.PRNM, dbradio.ressph.QTPR, medcpofb.sprphm.PRNA "
psql += "From dbradio.RESSPH, medcpofb.SPRPHM "
psql += "WHERE dbradio.ressph.NDS In ( "
psql += " SELECT DISTINCT (dbradio.sdsm.NDS) "
psql += " FROM dbradio.SDSM, dbradio.RESSSI "
psql += " WHERE dbradio.sdsm.NDS = dbradio.resssi.NDS "
psql += " and dbradio.sdsm.DVIS >='10/26/2009' "
psql += " and dbradio.sdsm.DVIS <='11/01/2009' "
psql += " and dbradio.resssi.CSIT=@p "
psql += " ) "
psql += "and medcpofb.sprphm.PRKO = dbradio.ressph.PRKO "
psql += "order by dbradio.ressph.NDS asc"
Dim cmd = New OleDbCommand()
cmd.CommandText = psql
cmd.Parameters.Add(New OleDbParameter("@p", OleDbType.VarChar, 2))
cmd.Parameters("@p").Value = "PP"
cmd.Connection = oOleDbConnection
cmd.Prepare() ' L'exception se produit a cette instruction
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
Dim listItem As New String("")
listItem = dr.GetName("0")
MsgBox(listItem)
listItem = dr.GetValue("0").ToString()
MsgBox(listItem)
Dim values(dr.FieldCount) As Object
dr.GetValues(values)
End While |
