Bonjour a tous,

désolé de poster une question sur DAO dans le forum ADO.NET mais je ne voyais pas trop ou poster...

Donc je souhaiterais pouvoir me connecter à ma base de données access via DAO en vb.net (VS 2005).
Connaissez vous le code à utiliser pour se connecter, executer une requette et afficher ce résultat???

cà fait un moent que je cherche mais je n'arrive pas me connecter à ma base....


Merci d'avance

Salut,

Déjà ceci pour la connexion puis cela pour approfondir....

A+
Exploreur

 Linux a un noyau, Windows un pépin

Salut exploreur, merci pour ta réponse..;

pour l'instant j'ai ceci :
  <sub>Dim MonSql As String
            Dim workspaces() As DAO.Workspace
            Dim Db As DAO.Database
            Dim MaTable As DAO.Recordset
            'Ouverture de la base de données
            Db = Workspaces(0).opendatabase(base)

            'Création d'une requête SQL en mode Texte qui sélectionne le client dont le numéro est saisi dans l'objet texte1
            MonSql = "SELECT * FROM TABLE WHERE code=1"

            'Ouverture du Recordset
            MaTable = Db.OpenRecordset(MonSql)

            MaTable.MoveFirst()
            TextBox1.Text = MaTable.Fields(nom)</sub>

Mais je n'arrive pas me dépatouiller avec le workspace... (le debugeur me dit : utilisé avant qu'une valeur ne lui soit attribué..). Aurez tu une idée?

Autant qu'en ADO, je n'ai jamais eu de soucis mais alors la avec DAO je rame

Merci lillith212,

je pense que ca devrait marcher...;

Et dire que ca fait une heure que j'attend une réponse alors que tu a poster la tienne pendant que je précissé ma question.....

Bonjour,
J'avais le même problème et j'ai trouvé cà qui marche en VB2008 :

Il faut ajouter au projet la référence à Microsoft DAO 3.6 Objects Library
---------------------------------------------------
Public

Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase .Load

Dim dbe As dao.DBEngine, db As dao.Database, rs As dao.Recordset

dbe = New dao.DBEngine

db = dbe.Workspaces(0).OpenDatabase( chemin de la bd, False, True, "; pwd=motdepasse" )

rs = db.OpenRecordset( "SELECT * FROM Table;" )

rs.MoveFirst()

MsgBox(rs.Fields( "NomdeChamp" ).Value)

rs.Close()

db.Close()

rs = Nothing

db = Nothing

dbe = Nothing

End

End Sub

End Class
-----------------------------------------