capi59
Messages postés8Date d'inscriptionmercredi 19 mai 2010StatutMembreDernière intervention21 octobre 2010
-
19 mai 2010 à 16:38
capi59
Messages postés8Date d'inscriptionmercredi 19 mai 2010StatutMembreDernière intervention21 octobre 2010
-
19 mai 2010 à 17:11
Bonjour !
je travaille sur un pc virtuelle avec windows server 2003 ! SQL server est installé dessus. J'ai migrer Une BDD access vers sql server !
maintenant je veux attacher les tables access à sql server avec ODBC !
J'utilise ce code :
Dim nbTables As Long ' nombre de tables dans la liste
Dim i As Long ' compteur de boucle
Dim nouvelleTable As TableDef ' nouvelle table à lier
Dim nomtable As String ' nom de la table
Dim base_attache As Database
Set base_attache = DBEngine.Workspaces(0).OpenDatabase("ODBC;DSN=***;UID=toto;PWD=pass")
' compte le nombre de table
nbTables = base_attache.TableDefs.Count
' parcours la collection des tables liées dans cette BDD pour récupérer leur nom et faire les attaches
For i = nbTables - 1 To 0 Step -1 '
nomtable = CurrentDb.TableDefs(i).Name ' récupère le nom de la table
' création d'un nouveau lien
nouvelleTable.Connect = "ODBC;DSN=***;UID=toto;PWD=pass"
CurrentDb.TableDefs.Append nouvelleTable ' rattache la table à la collection
nouvelleTable.SourceTableName = "nouvelleTable"
Next i
End Sub
Je sais pas si le code est bon, mais je n'arrive pas à me connecter à la base sql server :/
Voila ce qu'il me met :
Erreur d'exécution 3024
<< ODBC;DSN=***;UID=toto;PWD=pass>> fichier introuvable !
Je tourne en rond sans trouver de solution si quelqu'un pourrait m'aider Se serait avec plaisir ;)