Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1908 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  afficher les données d'un SELECT dans listbox en VB

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

afficher les données d'un SELECT dans listbox en VB

n°2000910
nico8001
Posté le 11-06-2010 à 15:15:35  profilanswer
 

Bonjour à tous,  
 
J'aurai vraiment besoin d'aide , j'ai un projet à faire et sa fait 2jour que je suis bloquer dessus parce que je n'arrive pas à faire afficher les résultats d'un Select dans une listbox  
J'ai essayer plein de chose differentes mais rien n'y fait .  
Soit un message qui me dit que ma base n'est pas connecté , soit que l'argument prompt ne peut pas etre converti en type string ...  
 
J'ai une base access 2000 , avec 4champs ( N°machine, NomMachine , AdresseIP, secteur ) et je travaille sur visual basic 2008  
 
voila mon code :
 
1e méthode ( pr celle la l'erreur vient de la connexion de la base)  
 
Dim LB_ListeMachines As New ListBox  
Dim rs As DAO.Recordset  
Dim db As DAO.Database  
Dim bd As DBEngine  
 
 
Try  
bd = New DBEngine  
db = bd.OpenDatabase("C:\...\Debug\BaseDeDonnées.mdb" )  
rs = db.OpenRecordset("SELECT NomMachine FROM Machines " )  
While Not rs.EOF  
LB_ListeMachines.Items.Add(rs.Fields("NomMachine" ).Value)  
rs.MoveNext()  
End While  
 
Catch ex As Exception 'message d'exception si erreur  
MessageBox.Show("Impossible d'établir la connexion à la base !!" & ex.Message)  
End Try  
 
MyConnection.Close()  
 
 
2e Methode ( erreur : prompt ne peut pas etre en string )  
 
 
Dim MyConnection As New System.Data.OleDb.OleDbConnection()  
Dim Affiche As OleDb.OleDbCommand = MyConnection.CreateCommand()  
Dim LB_ListeMachines As New ListBox  
Dim rs As DAO.Recordset  
Dim db As DAO.Database  
Dim bd As DBEngine  
 
Try  
MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\...\Debug\BaseDeDonnées.mdb"  
MyConnection.Open()  
 
Affiche.CommandText = "Select NomMachine from Machines"  
MsgBox(Affiche.CommandText)  
rs = Affiche.OpenRecordset(Affiche.CommandText)  
Affiche.ExecuteNonQuery()  
While Not rs.EOF  
LB_ListeMachines.Items.Add(rs.Fields("NomMachine" ).Value)  
rs.MoveNext()  
End While  
 
 
Catch ex As Exception 'message d'exception si erreur  
MessageBox.Show("Impossible d'établir la connexion à la base !!" & ex.Message)  
End Try  
 
MyConnection.Close()  
 
 
Merci d'avance

mood
Publicité
Posté le 11-06-2010 à 15:15:35  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  afficher les données d'un SELECT dans listbox en VB

 

Sujets relatifs
Problème code PHP insertion données form dans DBFormater des données
[RESOLU] [SHELL] extraction et reformattage des données d'un fichiercomment afficher des googleMaps dont j'ai le html avec menu déroulant
Afficher données excel sous VbCopie données usf dans une certaine ligne tableau excel
Afficher commentaire dans une gallerie d'image 
Plus de sujets relatifs à : afficher les données d'un SELECT dans listbox en VB


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR