Format non reconnu
rd1rc2
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
abdo -
abdo -
Bonjour,
je dispose de acces 2000 et de vb6 sous xp pro
mais le vb6 ne veut pas reconnaitre le format d'acces.
le message : "format non reconnu"
cependant, les deux programmes tournent bien séparément
existe - t -il un moyen de conversion ?
merci
je dispose de acces 2000 et de vb6 sous xp pro
mais le vb6 ne veut pas reconnaitre le format d'acces.
le message : "format non reconnu"
cependant, les deux programmes tournent bien séparément
existe - t -il un moyen de conversion ?
merci
A voir également:
- Format non reconnu
- Cle usb non reconnu - Guide
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
13 réponses
Salut,
je ne suis pas sûr de comprendre le problème. Tu veux faire quoi avec VB et Access exactement ?
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
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)
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)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
Sur quelle ligne du programme ça plante exactement ?
La base de données n'est-elle pas en lecture seule ?
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
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
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
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
