Format non reconnu

rd1rc2 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
 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

13 réponses

  1. marlene
     
    meme probleme : existe t il une reponse a se probleme ?
    0
  2. slolo2000 Messages postés 315 Statut Membre 48
     
    Salut,

    je ne suis pas sûr de comprendre le problème. Tu veux faire quoi avec VB et Access exactement ?
    0
  3. marlene
     
    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
    0
  4. slolo2000 Messages postés 315 Statut Membre 48
     
    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)
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. marlene
     
    quel reference faut-il mettre exactement ?
    0
  7. slolo2000 Messages postés 315 Statut Membre 48
     
    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.
    0
  8. marlene
     
    je l'ai mise cette librairie mais ça ne marche pas, ça me met que ma base n'es pas reconnu
    0
  9. slolo2000 Messages postés 315 Statut Membre 48
     
    Sur quelle ligne du programme ça plante exactement ?
    La base de données n'est-elle pas en lecture seule ?
    0
  10. marlene
     
    ça plante sur cette ligne la :
    Set db = OpenDatabase(App.Path & "\solution2.mdb")
    la base de donnée n'es pa en lecture seule
    0
  13. NicoDisso Messages postés 231 Statut Membre 32
     
    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
    0
  14. abdo
     
    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?
    0