Bonjours,
comment peut-t-on utiliser une base des données Access 2010 avec VB6?
Même au format Access 2000 il ne reconnais pas la base des données.
Salutations
José
Bonjours,
comment peut-t-on utiliser une base des données Access 2010 avec VB6?
Même au format Access 2000 il ne reconnais pas la base des données.
Salutations
José
Salut
Pour une BDs 2007 à 2013, avec ADODB, il faut faire référence à Microsoft ActiveX Data Objects 2.0 Library (msado20.tlb)
Exemple de code (vérifié)
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 Dim CnX As New ADODB.Connection 'pour la connection à la BD Dim CheminNomDelabase As String 'ou se trouve la BD Dim NomDeLaBD As String Dim Schema As New ADODB.Recordset Dim NomTable As String Dim strCnn As String 'infos pour la connection à la BD Dim MsG As String NomDeLaBD = "Bd2007.accdb" CheminNomDelabase = "C:\PersoFrancis\BD Access 20007\" & NomDeLaBD strCnn = "PROVIDER=Microsoft.ACE.OLEDB.12.0;" strCnn = strCnn & "Data Source=" & CheminNomDelabase & ";" If CnX.State <> adStateClosed Then CnX.Close Set CnX = Nothing CnX.CursorLocation = adUseClient: CnX.Mode = adModeReadWrite On Error Resume Next CnX.Open strCnn If Err.Number <> 0 Then MsG = "Erreur N°" & Err.Number & vbCrLf _ & "Description:" & vbCrLf & Err.Description & vbCrLf _ & "Impossible d'ouvrire la BD " & CheminNomDelabase MsgBox MsG, vbCritical, "Informations" Exit Sub Else MsG = "Ouverture de la BDs Ok" & vbNewLine End If 'recuperation de chaque nom des tables de la BDs Set Schema = CnX.OpenSchema(adSchemaColumns) While Not Schema.EOF DoEvents If Schema!TABLE_NAME <> "" And NomTable <> Schema!TABLE_NAME And InStr(1, Schema!TABLE_NAME, "MSys") = 0 Then NomTable = Schema!TABLE_NAME MsG = MsG & vbNewLine & NomTable End If Schema.MoveNext Wend Schema.Close MsgBox MsG, vbInformation, "Informations" CnX.Close
Soyez sympa, pensez -y
Balises[CODE]...[/CODE]
Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Balises[C]...[/C] code intégré dans une phrase.
Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
👉 → → Ma page perso sur DVP ← ← 👈
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager