Boucle en vb.netRésolu

Question

Bonsoir,

Je possède une base de donnée SQL Server 2008 et VB 2008. Je suis tout à fait débutant dans ces produits et j'aimerai effectuer une boucle pour remplir un combobox, avec VB 6 je mets :

do until rs.EOF
fournisseur.AddItem = rs.field(0)
fournisseur.movenext
loop

Mais avec VB 2008 ça ne marche pas. Voici mon code sans la boucle :

conn.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=BASE;server=EITIACONSULTING"
conn.Open()

s = "SELECT fournisseurs.fournisseur FROM fournisseurs ORDER BY fournisseurs.fournisseur DESC;"
Dim myCommand As New SqlCommand(s, conn)
Dim myReader As SqlDataReader = myCommand.ExecuteReader()

myReader.Read()

fournisseur.Text = myReader("fournisseur")

myReader.Close()

Aidez moi SVP. Merci

cs_casy · Accepted Answer

Oupsss, excuse moi, j'avais zappé la notion de combobox dans ton code.

La lecture du retour de la requette est bonne, c'est par contre le remplissage du combo qui ne l'est pas cette fois-ci.

s =  "SELECT fournisseurs.fournisseur FROM fournisseurs ORDER BY fournisseurs.fournisseur DESC;"
Dim myCommand As New SqlCommand(s, conn)
Dim myReader As SqlDataReader = myCommand.ExecuteReader()

While myReader.Read()
     fournisseur.Items.Add(myReader("fournisseur")) 
End While
myReader.Close()

Comme ça, ça devrait aller mieux

---- Sevyc64  (alias Casy) ----<hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

cs_casy · Answer

c'est guère plus compliqué : 

s = "SELECT fournisseurs.fournisseur FROM fournisseurs ORDER BY fournisseurs.fournisseur DESC;"
Dim myCommand As New SqlCommand(s, conn)
Dim myReader As SqlDataReader = myCommand.ExecuteReader()

While myReader.Read()
    fournisseur.Text = myReader("fournisseur")
End While

myReader.Close()

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

spamito · Answer

J'ai déjà essayé cela mais ça ne marche pas, j'obtiens juste un seul enregistrement.

spamito · Answer

Voici mon code :

Private Sub Demandes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim cn As New ADODB.Connection
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Application.StartupPath & "\BASE.mdb"
        cn.Open()

        Dim rs As New ADODB.Recordset
        rs.CursorLocation = ADODB.CursorLocationEnum.adUseServer
        rs.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
        rs.LockType = ADODB.LockTypeEnum.adLockPessimistic
        rs.ActiveConnection = cn
        rs.Open("SELECT Clients.Intitule FROM Clients ORDER BY Clients.Intitule DESC", cn)

        Do Until rs.EOF
            Me.client.Text = rs.Fields(0).Value 
            rs.MoveNext()
        Loop

    End Sub

cs_casy · Answer

C'est pourtant bien comme cela que ça s'utilise.

Par contre dans ton second code, tu utilise les anciens controles ADO avec une base Access, hors tu parlais dans le premier message d'une base SQLServer. Qu'en est-il de la réalité.

En .Net il est fortement recommander d'abandonner les anciens controles ADO et d'utiliser à la place les classes ADO.Net.

Si tu es avec une base SQLServer il te faut utiliser les classes de la famille SQLClient. Par contre avec une base Access il faudra passer par les classes OleDB.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

spamito · Answer

Ma base de données est sur SQL Server, c'était juste une erreur que j'ai faite. J'ai repris votre code avec le mien mais ça ne marche pas, j'ai toujours un seul enregistrement dans mon combobox.

spamito · Answer

Ouiiiiiiiiiiiiii ça marche parfaitement, merci beaucoup cher ami.

spamito · Answer

Puisque je suis débutant en vb.net et SQL Server, j'aimerai savoir si cette méthode que j'utilise est bonne ou pas et si elle est sécurisée ou pas.

Merci

Boucle en vb.net

8 réponses

Votre réponse

Discussions similaires