Bonjour à tous et à toutes,
Je suis nouveau dans la programmation VB6 et j'ai du réaliser le lien d'une base SQL Server vers une base Access.
J'ai donc écrit ce code qui va chercher les données à récupérer dans un tableau Excel.
Code :
- While wsE.Cells(I, j) <> ""
- 'nom des tables à lier
- nameSQL = wsE.Cells(I, j)
- 'création de la table avec mémorisation du mot de passe
- Set adCat = New ADOX.Catalog
- Set adTab = New ADOX.Table
- Set adCo = New ADODB.Connection
- adCo.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\" & Text1.Text & ".mdb"
- adCat.ActiveConnection = adCo
- adTab.name = nameSQL
- adTab.ParentCatalog = adCat
- adTab.Properties("Jet OLEDB:Create Link" ) = True
- adTab.Properties("Jet OLEDB:Link Provider String" ) = connect
- adTab.Properties("Jet OLEDB:Cache Link Name/Password" ) = True 'ligne obligatoire pour conserver le mdp
- adTab.Properties("Jet OLEDB:Remote Table Name" ) = nameSQL
- 'ajout de la table dans la base
- adCat.Tables.Append adTab
- I = I + 1
- Wend
|
Ce code fonctionne mais 3 bases sont impossible à lire, quand je les ouvre ça me retourne le message d'erreur "ODBC--call failed".
Ce qui m'étonne c'est que ce message n'est que ces 3 bases, les 120 autres sont lisibles.
S'il vous plaît, je ne sais pas pourquoi ça ne marche pas et comment je peux le corriger.
Merci de votre attention et je vous remercie d'avance pour les solutions que vous pourriez trouver.
