[VB6] Problème de lien d'une base SQL Server vers Access

Problème de lien d'une base SQL Server vers Access [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 19-05-2014 à 12:55:32    

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 :
  1. While wsE.Cells(I, j) <> ""
  2.      'nom des tables à lier
  3.      nameSQL = wsE.Cells(I, j)
  4.      'création de la table avec mémorisation du mot de passe
  5.      Set adCat = New ADOX.Catalog
  6.      Set adTab = New ADOX.Table
  7.      Set adCo = New ADODB.Connection
  8.      adCo.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\" & Text1.Text & ".mdb"
  9.      adCat.ActiveConnection = adCo
  10.      adTab.name = nameSQL
  11.      adTab.ParentCatalog = adCat
  12.      adTab.Properties("Jet OLEDB:Create Link" ) = True
  13.      adTab.Properties("Jet OLEDB:Link Provider String" ) = connect
  14.      adTab.Properties("Jet OLEDB:Cache Link Name/Password" ) = True 'ligne obligatoire pour conserver le mdp
  15.      adTab.Properties("Jet OLEDB:Remote Table Name" ) = nameSQL
  16.      'ajout de la table dans la base
  17.      adCat.Tables.Append adTab
  18.      I = I + 1
  19. 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.

Reply

Marsh Posté le 19-05-2014 à 12:55:32   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed