connection à une bd access avec vb 2008

slut j'ai un pb je n'arrive  pas
à me connecter à ma base creé dans access avec  en passant par le formulaire créer dans vb2008

je cherche  à lire les enregistrement de la base de données qui est dans accesse et afficher  les information dans un listbox de mon formulaire dans vb2008 .

                    merci d'avance je compte sur vous

bonsoir,

Fais des recherches sur l'utilisation des DataSet et OledbConnection, OledbCommand... et les DataAdapter. Tout tourne autour de ces classes. Tu trouveras pleins d'exemple de code dans la rubriques codes

thierry la fronde

salut !

vas sur gilmir.ftp-developpez.com/tutoriels-vb6/tutoriel9.pdf

tu vas trouver ton bonheur.

Lez-J

Juste pour demander si il serait possible de nous indiquer ce qu'il faut faire pour accéder à une base access via VB2008 car tous les conseils sont sur VB6 semble t'il ? ou bien faire une version VB2008 d'un tuto d'avance merci

    Sub OuvrirLaConnexionALaBase(ByRef LaConnexion As OleDbConnection)

        Dim LaConnexionString AsString

        LaConnexionString = "Provider=Microsoft.Jet.OLEDB.4.0;"

        LaConnexionString &= "Password= ;User ID=Admin;"

        LaConnexionString &= "Data Source=" & LireLeCheminbdUtil()// cette fonction me retourne le chemin que j'ai écrit dans un fichier texte

        LaConnexion = New OleDbConnection(LaConnexionString)

        Try

            LaConnexion.Open()

        Catch ex As Exception

            MessageBox.Show("L'erreur suivante s'est produite : " & ex.ToString)

        End Try

 

 

    End Sub

    Sub FermerLaConnexion(ByRef LaConnexion As OleDbConnection)

         Try

            LaConnexion.Close()

        Catch ex As Exception

            MessageBox.Show("L'erreur suivante s'est produite : " & ex.ToString)

        End Try

 

    End Sub

// Voici la procédure pour lire les données de ma base.

PrivateFunction AutorisationDeConnexion() AsBoolean

        Dim LaConnexion As OleDbConnection

        Dim LeDataSet AsNew DataSet

        Dim LeDataAdapter As OleDbDataAdapter

        OuvrirLaConnexionALaBase(LaConnexion)

        Dim LaRequete AsString

        LaRequete = "SELECT * FROM T_Utilisateur;"

        Try

            LeDataAdapter = New OleDbDataAdapter(LaRequete, LaConnexion)

            LeDataAdapter.Fill(LeDataSet)

            AutorisationDeConnexion = Me.VerificationDuLoginMotDePasse(LeDataSet)

        Catch ex As Exception

            MessageBox.Show("L'erreur suivante s'est produite : " & ex.ToString)

        Finally

            LeDataAdapter.Dispose()

            LeDataSet.Dispose()

        EndTry

        FermerLaConnexion(LaConnexion)

        LaConnexion.Dispose()

    EndFunction

    PrivateFunction VerificationDuLoginMotDePasse(ByRef LeDataSet As DataSet) AsBoolean

        Dim NbreDEntree AsInteger = LeDataSet.Tables.Item(0).Rows.Count()

        Dim i AsInteger

        Dim Trouve AsBoolean = False

        NomDuConnecte = ""

        While i < NbreDEntree

            IfMe.UsernameTextBox.Text = LeDataSet.Tables.Item(0).Rows(i).Item("Utilisateur").ToString _

            AndMe.PasswordTextBox.Text = LeDataSet.Tables.Item(0).Rows(i).Item("MotDePasse").ToString _

            And LeLibelleDuDroit() = LeDataSet.Tables.Item(0).Rows(i).Item("Droits") Then

                Trouve = True

 

                NomDuConnecte = LeDataSet.Tables.Item(0).Rows(i).Item("Prenom").ToString & "  " & _

                LeDataSet.Tables.Item(0).Rows(i).Item("Nom").ToString()

            EndIf

            i = i + 1

        EndWhile

        Return Trouve

    EndFunction

Cela devrait pouvoir t'éclairer un peu
thierry la fronde

salut tout monde je besoin de faire une connexion en vb 2008 via access
2003 et merci d'avance