Apprenti en Visual Basic.
Bonjour,
voila j'ai cree un controle ADO appelé Adodc1 dans une form. Or je voudrais que la propriété Data Source de ce controle soit App.Path & "\Programs.mdb".
J'ai essayé de taper ce chemin dans la fenetre de propriétés du controle mais ca ne marche pas. J'ai donc essayé le code suivant à la procédure form_load:
Dim strPath As String
strPath = App.Path & "\Programs.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & strPath & _
"; Mode=Read|Write"
Adodc1.RecordSource = "Programs"
Adodc1.Refresh
Malheureusement ce code marche "à moitié". En effet, lorsque la form se charge, il apparait d'abord une msgbox me disant soit que la source de données est introuvable ou le nom de pilote non spécifié, ou encore "échec de l'authentification". Ensuite, la form se charge et se connecte sans probleme a la DB. Le probleme est que je voudrais enlever ces msgbox d'erreur. Donc si quelqu'un peut me dire comment faire exactement...
Merci d'avance.

Dim cnx as New ADODB.Connection
Dim rec as New ADODB.Recordset

Private Sub Form_Load()
cnx.ConnectionString = App.Path & "\programs.mdb"
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
cnx.Open

'Par défaut, Security=False, Read|Write = True
'Gestion du ReadOnly avec tes recorsets, exemple

rec.Open "Matable", cnx, adOpenDynamic, AdLockReadOnly
'Lecture seule

rec.Open "Matable", cnx, adOpenDynamic, AdLockOptimistic
'Lecture et écriture gérée par enregistrement

Normalement, pas de problèmes

A plus, et bonne chance,

PrX, Initiate To VB6 And Completely Crazy

Salut Philagui,
Je sais que ça date comme sujet mais, j'utilise Adodc aussi et j'ai exactement le même problème que toi.
Comment enlever ces MsgBox d'erreur...!
Tu as trouvé une solution 5 ans plus tard??

Merci d'avance
Mike

Re-bonjour,

Je me répond à moi même et en même temps à Philagui,
Il y avait juste dans la proprété RecordSource de l'Adodc que j'avais oublié d'effacer.

tout marche nickel maintenant !
Merci