SELECT plusieurs enregistrement

Version imprimable

bonjour, j'ai 2 questions ? donc voici mon code:

Code:

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

et voici la structure de ma table:

http://nsa25.casimages.com/img/2011/...4845853353.png

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:

Code:

TextBox2.Text = TextBox2.Text & vbCrLf & CStr(myREADER.GetString(0))

mais toujours pareil... si quelqu'un peux m'aider ?

2) sinon est ce que je peux récuperer l'integraliter des enregistrements plus simplement que ça:

Code:

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

17/05/2011, 14h05
Pol63

mon dieu ! 8O

ca ne sert à rien de coder quand y connait rien ... si ton métier est développeur ca fait peur
sinon il faut d'abord apprendre, et il y a plein de tutos sur le net et sur ce site

Code:

select a, b, c, d from table

ramène tous les champs en une fois

getstring sert à obtenir le string de la colonne spécifiée (0 pour a dans mon cas précédent, 1 pour b etc ..., il est aussi possible de nomer les champs pour éviter d'avoir des bugs en cas de modif)

donc si c'est pas un string getstring plante c'est normal
il faut aussi prendre en compte les valeurs nulles, qui retourne une instance de system.dbnull.value
si dans tous les cas tu veux récupérer un string et transformer null en une chaine vide, le plus simple est

Code:

reader.item(col).tostring
17/05/2011, 14h05
Nathanael Marchand

Sans vouloir être méchant, vu le code, je pense que tout est bon à jeter et qu'il faut passer par la case "Apprendre le VB.Net et SQL via un tutoriel"
17/05/2011, 14h13
Bluedeep

Citation:

Envoyé par tijote

voici mon code

Ce n'est pas le mot que j'aurais choisi ......

Comme déjà dit, à ce stade, il faut repartir des bases. Tuto SQL (surtout) + Tuto VB.NET

désoler je debute, je suis pas un expert je demande de l'aide pour faire des choses un peu mieux, j'ai cherhcer dans des tutos mais c'est enormes la base d'informations,

j'ai modifier:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    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 NGAMM, CSITG, CDATL, CTYGA, NENCH, NPHSE, CTYPH, NSECG, NOUDC, LOBSG FROM ARTCOM"
 
        MyConnexion.Open()
 
        Dim myREADER As OleDbDataReader = Mycommand.ExecuteReader()
 
        Do While myREADER.Read()
 
            TextBox2.Text = TextBox2.Text & vbCrLf & myREADER.GetString(0) & "|" & myREADER.GetString(1) & "|" & myREADER.GetString(2) & "|" & myREADER.GetString(3) &
                 "|" & myREADER.GetString(4) & "|" & myREADER.GetString(5) & "|" & myREADER.GetString(6) & "|" & myREADER.GetString(7) & "|" & myREADER.GetString(8) &
                 "|" & myREADER.GetString(9)
 
        Loop
 
        myREADER.Close()
        MyConnexion.Close()
 
    End Sub

mais j'ai le prob de cast...

17/05/2011, 14h22
jolona

ok je vais essayer ca:

Code:

reader.item(col).tostring

merci
17/05/2011, 14h24
Bluedeep

C'est tout à fait normal que tu ais un problème de cast puisque tu fais des GetString sur des champs sans t'occuper de leur type (qui doit être déja un string, car, contrairement à la méthode ToString, GetString ne fait pas de conversion).

oui...

voici

Code:

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
    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 NGAMM, CSITG, CDATL, CTYGA, NENCH, NPHSE, CTYPH, NSECG, NOUDC, LOBSG FROM ARTCOM"
 
        MyConnexion.Open()
 
        Dim myREADER As OleDbDataReader = Mycommand.ExecuteReader()
 
        Do While myREADER.Read()
 
            TextBox2.Text = TextBox2.Text & vbCrLf & myREADER.Item(0).ToString() & "|" & myREADER.Item(1).ToString() & "|" & myREADER.Item(2).ToString() & "|" & myREADER.Item(3).ToString() &
                 "|" & myREADER.Item(4).ToString() & "|" & myREADER.Item(5).ToString() & "|" & myREADER.Item(6).ToString() & "|" & myREADER.Item(7).ToString() & "|" & myREADER.Item(8).ToString() &
                 "|" & myREADER.Item(9).ToString()
        Loop
 
        myREADER.Close()
        MyConnexion.Close()
 
    End Sub
 
 
#End Region

c'est quand meme mieux qu'avant, merci

17/05/2011, 15h04
Pol63

Citation:

Envoyé par tijote

désoler je debute, je suis pas un expert je demande de l'aide pour faire des choses un peu mieux, j'ai cherhcer dans des tutos mais c'est enormes la base d'informations,

on ne fait pas d'omelette sans casser des oeufs, et on est tous passé par là
apprendre tout .net prend des années certes, mais les bases c'est beaucoup plus rapide
le tuto suivant est pas mal :
http://plasserre.developpez.com/cours/vb-net/
il n'y a pas les bases de programmation qui sont communes à quasiment tous les langages comme l'algorithmie, mais il y a les bases de vb.net
personnellement ca m'a pris une petite 50aine d'heure à lire et à assimiler, mais au moins quand j'ai commencé à taper du code j'ai regagné le temps passé en évitant de chercher partout et en tapant plus de code que nécessaire
18/05/2011, 06h58
jolona

oui merci je l'ai en PDF, j'ai lu aussi pas à pas et le programmeur, je pense que je m'y prend mal pour rechercher les données et là du multi sélection en SQL c'est clair car je sais le faire en requette sql access mais le faire en vb j'ai trouver que des faq ou tuto qui explique comment faire un enregistrement d'ailleurs le code viens du cours de plasserre...
en tout cas merci pour les infos.
18/05/2011, 09h02
ostenhard

Citation:

Envoyé par tijote

oui merci je l'ai en PDF, j'ai lu aussi pas à pas et le programmeur, je pense que je m'y prend mal pour rechercher les données et là du multi sélection en SQL c'est clair car je sais le faire en requette sql access mais le faire en vb j'ai trouver que des faq ou tuto qui explique comment faire un enregistrement d'ailleurs le code viens du cours de plasserre...
en tout cas merci pour les infos.

Euh, le SQL c'est du SQL, un langage avec un standard défini, donc la grosse majorité des requêtes écrites pour un SGBD fonctionne pour les autres. Mais comme dit, c'est un standard mais chaque éditeur peut ajouter des fonctions, implémenter les choses différemment.