Discussion :

[gbemich]

Salut,
Je développe une application VB6 sur la plate forme d’un Windows 2000 qui est spécifique à une entreprise et je n’arrive pas à me connecter à la base que j’ai créé dans Access 2000. Il me dit qu’il ne reconnaît pas le format de la base. J’ai essayé avec d’autres codes mais rien à faire. Pouvez-vous m’aider ?
Ici j’ai le message « La connexion n'a pas réussi,réessayez »
Je vous envoie le code que j’ai utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Option Explicit
'Déclaration des variables globales
'Global DbName As String
Global Liberreur As String
'Global OK As Integer
 
Public Cnx As New ADODB.Connection
Public Rst As New ADODB.Recordset
Public Cmd As New ADODB.Command
Sub main()
 'Cette procédure appelle la fonction d'ouverture de la BD et affiche la fenêtre d'acceuil.
If OuvrirBase = True Then
frmConnexion.Show
Else
 MsgBox ("La connexion n'a pas réussi,réessayez")
End If
End Sub
 
 
Public Function OuvrirBase() As Boolean
 'Cette fonction ouvre la BD Access 2000
  On Error GoTo Erreur
 
     Cnx.Provider = "Microsoft.Jet.Oledb.4.0"
     Cnx.ConnectionString = App.Path & "c:\db1.mdb"
     Cnx.Open
     Cmd.ActiveConnection = Cnx
     OuvrirBase = True
  Exit Function
'\gbemich\GESPARC\Application\
Erreur:
 Liberreur = "Erreur d'ouverture de la Base"
 OuvrirBase = False
 End Function
 
 Public Sub OuvrirRecord(StrSQL As String)
 'Cette procédure permet d'ouvrir toutes les tables de la BD. Ce code veut dire que pr ouvrir une table,c'est une requete SQL qu'il faut lui passer. ie un ''select''
'Regarde ds l'aide au niveau de ces propriétés . tu verras ce à quoi elle servent
 
 Cmd.ActiveConnection = Cnx
 Cmd.CommandText = StrSQL
 Rst.CursorLocation = adUseClient
 Rst.CursorType = adOpenDynamic
 Rst.LockType = adLockPessimistic
 Rst.Open Cmd
  End Sub
 
Public Sub FermerRecord()
'Cette procédure permet de fermer toutes les tables de la BD
On Error Resume Next
Rst.Close
Set Rst = Nothing
Set Rst = New ADODB.Recordset
End Sub
 
Public Sub FermerBase()
'Cette procédure permet de fermer la BD
On Error Resume Next
Cnx.Close
Set Cnx = Nothing
End Sub

Merci de m'aider même si ce genre de sujet existe déjà dans le forum.

[sovo]

Tout d'abord bienvenu dans le forum.

Avant de poster dans le forum tu aurais du lire les regles du forum, car tu en a enfrein plus d'une.
- Tu as poster dans le mauvais forum (tu aurais du le faire dans le forum parent a celui ci VB 6 et anterieur)

- Les balises de codes pour rendre ton code plus lisible

- Nous dire aussi ou tu as une erreur

Je t'invite donc a les lire
Regles

Organisation du forum


Pour ce qui est de ton probleme, il viens d'ici

Cnx.ConnectionString = App.Path & "c:\db1.mdb"

tu melange tout en un.
si tu veux que ca marche essai ca.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
     'Si tu connais le chemin exact de ta base de donnee. 
     'Cette methode est fortement deconseille, car si tu donne ton programme 
     'a un pote ca ne va pas marche, sauf s'il met la base au meme endroit 
     '(en therme de chemin d'acces) 
     'et c vraiment pas evident 
 
     Cnx.ConnectionString = "c:\db1.mdb"  
 
'ou 
 
    'La methode conseille, car plus flexcible et ne depend pas du poste de travail
 
     Cnx.ConnectionString = App.Path & "\db1.mdb"

Bonne Prog.