format non reconnu Fermé

Question

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

marlene · Answer

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

slolo2000 · Answer

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

marlene · Answer

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

slolo2000 · Answer

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)

marlene · Answer

quel reference faut-il mettre exactement ?

slolo2000 · Answer

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.

marlene · Answer

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

slolo2000 · Answer

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

marlene · Answer

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

slolo2000 · Answer

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

marlene · Answer

oki, merci bien

NicoDisso · Answer

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

abdo · Answer

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?

Format non reconnu

13 réponses

Discussions similaires