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