neo de la matrix
Messages postés10Date d'inscriptionlundi 10 juillet 2006StatutMembreDernière intervention20 octobre 2008
-
20 oct. 2008 à 12:02
neo de la matrix
Messages postés10Date d'inscriptionlundi 10 juillet 2006StatutMembreDernière intervention20 octobre 2008
-
20 oct. 2008 à 15:19
Bonjour à tous, excuser vraiment mais j'ai un problème avec mon projet.
Je voudrais charger des noms via ma base de données dans une listbox et je ne sais pas quelle syntaxe utiliser.
Dim sql as string = "SELECT Raisonsociale FROM Fournisseur"
lisrbox1.item.add(sql)
En fait, je veux charger les noms de tous les fournisseurs dans la listbox sur chaque ligne.
Vraiment j'attends votre reponse.
Merci
The Matrix has you ... has us... We're in
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 20 oct. 2008 à 13:43
Salut,
D'abord il faudrait que tu sois connecté à ta base de donnée....puis faire une requête de sélection (pour remplir un RecordSer de tes fournisseurs trouvés), puis avec une boucle sur le RecordSet (tant qu'il n'est pas vide), tu insères ce que tu lis dans ta listbox...
neo de la matrix
Messages postés10Date d'inscriptionlundi 10 juillet 2006StatutMembreDernière intervention20 octobre 2008 20 oct. 2008 à 15:19
Voici le code que j'ai mis dans le chargement de ma feuille:
Cnx = New OleDbConnection
Cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\Administrateur\Mes documents\pharm.mdb"
Cnx.Open()
'creation de la requête SQL
Dim Sql As String = "SELECT * FROM Fournisseur"
Dim Sql2 As String = "SELECT RaisonSociale FROM Fournisseur"
'Création de la commande et on l'instancie (sql)
Cmd = New OleDbCommand(Sql)
Cmd2 = New OleDbCommand(Sql2)
'Création du dataadapter (dta) et on l'instancie (cmd)
Dta = New OleDbDataAdapter(Cmd)
dta2 = New OleDbDataAdapter(Cmd2)
'On instancie la commande (cmd) à la connection (cnx)
Cmd.Connection() = Cnx
Cmd2.Connection() = Cnx
'On charge le dataset (dts) grâce à la propriété fill du dataadapter (dta)
Dta.Fill(Dts, "Fournisseur")
'On charge la datatable (dtt) grâce à la propriété tables du dataset (dts)
Dtt = Dts.Tables("Fournisseur")
For i = 0 To (Dtt.Rows.Count - 1)
RowNum = i
ListBox1.Items.Add(SQL)
Next