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
