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.