bonjour, j'ai 2 questions ? donc voici mon code:
et voici la structure de ma table:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Private Sub test1() Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\develop\Test oracle\bd_test.mdb") Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand() Mycommand.CommandText = "SELECT CTYGA FROM ARTCOM" MyConnexion.Open() Dim myREADER As OleDbDataReader = Mycommand.ExecuteReader() Do While myREADER.Read() TextBox2.Text = TextBox2.Text & vbCrLf & myREADER.GetString(0) Loop myREADER.Close() MyConnexion.Close() End Sub
1) le problème c'est que dans le champ : 'CTYGA' je suis en format numérique... et j'ai une erreur de CAST...
j'ai essayer ça:mais toujours pareil... si quelqu'un peux m'aider ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part TextBox2.Text = TextBox2.Text & vbCrLf & CStr(myREADER.GetString(0))
2) sinon est ce que je peux récuperer l'integraliter des enregistrements plus simplement que ça:
??????
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
47
48
49
50
51
52
53
54
55 Private Sub test() Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\develop\Test oracle\bd_test.mdb") Dim MycommandNGAMM As OleDbCommand = MyConnexion.CreateCommand() Dim MycommandCSITG As OleDbCommand = MyConnexion.CreateCommand() Dim MycommandCDATL As OleDbCommand = MyConnexion.CreateCommand() Dim MycommandCTYGA As OleDbCommand = MyConnexion.CreateCommand() Dim MycommandNENCH As OleDbCommand = MyConnexion.CreateCommand() Dim MycommandNPHSE As OleDbCommand = MyConnexion.CreateCommand() Dim MycommandCTYPH As OleDbCommand = MyConnexion.CreateCommand() Dim MycommandNSECG As OleDbCommand = MyConnexion.CreateCommand() Dim MycommandNOUDC As OleDbCommand = MyConnexion.CreateCommand() Dim MycommandLOBSG As OleDbCommand = MyConnexion.CreateCommand() MycommandNGAMM.CommandText = "SELECT NGAMM FROM ARTCOM" MycommandCSITG.CommandText = "SELECT CSITG FROM ARTCOM" MycommandCDATL.CommandText = "SELECT CDATL FROM ARTCOM" MycommandCTYGA.CommandText = "SELECT CTYGA FROM ARTCOM" MycommandNENCH.CommandText = "SELECT NENCH FROM ARTCOM" MycommandNPHSE.CommandText = "SELECT NPHSE FROM ARTCOM" MycommandCTYPH.CommandText = "SELECT CTYPH FROM ARTCOM" MycommandNSECG.CommandText = "SELECT NSECG FROM ARTCOM" MycommandNOUDC.CommandText = "SELECT NOUDC FROM ARTCOM" MycommandLOBSG.CommandText = "SELECT LOBSG FROM ARTCOM" MyConnexion.Open() Dim myNGAMM As OleDbDataReader = MycommandNGAMM.ExecuteReader() Dim myCSITG As OleDbDataReader = MycommandCSITG.ExecuteReader() Dim myCDATL As OleDbDataReader = MycommandCDATL.ExecuteReader() Dim myCTYGA As OleDbDataReader = MycommandCTYGA.ExecuteReader() Dim myNENCH As OleDbDataReader = MycommandNENCH.ExecuteReader() Dim myNPHSE As OleDbDataReader = MycommandNPHSE.ExecuteReader() Dim myCTYPH As OleDbDataReader = MycommandCTYPH.ExecuteReader() Dim myNSECG As OleDbDataReader = MycommandNSECG.ExecuteReader() Dim myNOUDC As OleDbDataReader = MycommandNOUDC.ExecuteReader() Dim myLOBSG As OleDbDataReader = MycommandLOBSG.ExecuteReader() Do While myNGAMM.Read() And myCSITG.Read() And myCDATL.Read() And myCTYGA.Read() And myNENCH.Read() And myNPHSE.Read() And myCTYPH.Read() And myNSECG.Read() And myNOUDC.Read() And myLOBSG.Read() TextBox2.Text = TextBox2.Text & vbCrLf & myNGAMM.GetString(0) & "|" & myCSITG.GetString(0) & "|" & myCDATL.GetString(0) & "|" & myCTYGA.GetString(0) & "|" & myNENCH.GetString(0) & "|" & myNPHSE.GetString(0) & "|" & myCTYPH.GetString(0) & "|" & myNSECG.GetString(0) & "|" & myNOUDC.GetString(0) & "|" & myLOBSG.GetString(0) Loop Do While myCTYGA.Read() 'ListBox1.Items.Add(myCTYGA.GetString(0)) TextBox2.Text = TextBox2.Text & vbCrLf & CStr(myCTYGA.GetString(0)) Loop myNGAMM.Close() MyConnexion.Close() End Sub
merci
Partager