Meme probleme : existe t il une reponse a se probleme ?

Salut,

je ne suis pas sûr de comprendre le problème. Tu veux faire quoi avec VB et Access exactement ?

Je veu relier access et vb sans lien odbc, voici le code

Dim db As Database
Dim rs As Recordset

Set db = OpenDatabase(App.Path & "\solution2.mdb")
Set rs = db.OpenRecordset("select * from contrat")

qd je lance l'execution, il me marque format base de donnée non reconnu. ma base de donnée es une base access 2000 et j'utilise vb6

Comment ça tu veux relier VB et access sans lien ODBC
Tu utilises quoi alors pour attaquer ta base DAO, ADO ?

Le code que tu montres utilise la syntaxe DAO. As tu fais une référence dans ton projet à DAO (dans le menu Projet puis référence)

Quel reference faut-il mettre exactement ?

Tu choisis dans le menu Projet puis référence la référence à "Microsoft DAO 3.51 Object Library" ou à défaut de l'avoir tu choisis "Microsoft DAO 2.5/3.51 compatibility library"

Un conseil tout de même. DAO commence à se faire vieux. Je te conseille d'utiliser ADO. Pour se faire il faut utiliser la référence à "Microsoft ActiveX Data Object 2.x Library" (x étant le numéro de version dont ton pc est équipé). Cependant, DAO n'utilise pas la même syntaxe que ADO. A toi de voir. Perso, ADO est mieux.

Je l'ai mise cette librairie mais ça ne marche pas, ça me met que ma base n'es pas reconnu

Sur quelle ligne du programme ça plante exactement ?
La base de données n'est-elle pas en lecture seule ?

ça plante sur cette ligne la :
Set db = OpenDatabase(App.Path & "\solution2.mdb")
la base de donnée n'es pa en lecture seule

Jette un oeil sur ce site http://faq.vb.free.fr/index.php?question=43 en espérant que ça puisse t'aider

Oki, merci bien

Tapez ça dans un le code click d'un bouton

Dim Chaine_De_Connection As String
Dim Cnx As ADODB.Connection
Dim RS As ADODB.Recordset
Dim Requete As String
Chaine_De_Connection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\solution2.mdb;Persist Security Info=False"
Requete = "SELECT * FROM CONTRAT"

Set Cnx = New ADODB.Connection
On Error Resume Next
With Declarations.Cnx
.ConnectionString = Chaine_De_Connection
.ConnectionTimeout = 5
.Open
End With
If Err.Number = 0 Then
Set RS = Cnx.Execute(Requete)
If Err.Number = 0 Then
Do Until RS.EOF
Msgbox RS.Fields(0).Value
Declarations.RS.MoveNext
Loop
Cnx.Close
Set Cnx = Nothing
Else
MsgBox Err.Description, vbExclamation, "Avertissement"
Cnx.Close
Set Cnx = Nothing
End If
Else
MsgBox Err.Description, vbExclamation, "Avertissement"
Cnx.Close
Set Cnx = Nothing
End If
On Error GoTo 0

Bah je sais po comment formater cette appareil il ya un pro dans l'ectriture il necrite po b1 les donner ve ti maider sttp?