Importer table depuis SQL SERVER

Version imprimable

Bonjour à tous,

sous A97 (ou A02), je souhaite importer des tables contenues dans une base SQL Server
J'ai jamais fait ça. :oops:
J'ai récupéré un code de connexion sur la FAQ

Je vois bien qu'il me manque quelque chose entre la connexion
et le docmd.transfertDatabase....
mais quoi ?

dbengine.workspaces...etc...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Sub connect() '--------------------------------------- 'Connection au serveur SQL NomServeur '--------------------------------------- 'instanciation de la connection Dim Cnx As New ADODB.Connection ' Set Cnx = New ADODB.Connection 'parametre de connection Cnx.ConnectionString = "Driver={SQL Server};server=Gestion;UID=AD;PWD=;database=VET" Cnx.Open 'test de connection If Cnx.State = adStateOpen Then MsgBox "connection OK" End If Dim F As Database ....... DoCmd.TransferDatabase acImport, , "VET", acTable, "Tbl_Race", "Tbl_race" End Sub
Dans l'idéal, j'aimerais parcourir une collection des tables contenues dans cette base externe SQL server, et les importer toutes...

Merci de votre aide...

bonne journée à tous....
fevec

Bonjour,

Pour importer une table SQL Server :

Code:

1
2
3
4
5
Dim strConn As String, strTableSQLserver As String
strConn = "ODBC;DRIVER=Sql Server;SERVER=Gestion;DATABASE=VET;UID=AD;PWD=MotDePasse"
strTableSQLserver = "Tbl_Race"
DoCmd.TransferDatabase acImport, "Base de données ODBC", strConn, _
      acTable, strTableSQLserver , "Tbl_Race"

J'ai un petit doute sur la syntaxe du nom de la table SQL server

Code:

strTableSQLserver = "Tbl_Race"

Je crois qu'il faut mettre le nom du propriétaire de la table, suivit d'un point, puis le nom de la table.

Code:

strTableSQLserver = "Proprio.Tbl_Race"

Voici un exemple de code pour importer toutes les tables

Code:

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
Dim Cnx As ADODB.Connection
Dim RS As ADODB.Recordset
Dim strConn As String
Dim strTableSQLserver As String, strTableAccess As String
 
' Ouverture connexion ADO
Set Cnx = New ADODB.Connection
Cnx.ConnectionString = "DRIVER=Sql Server;SERVER=Gestion;DATABASE=VET;UID=AD;PWD=MotDePasse"
Cnx.Open
 
' Ouverture recordset ADO
Set RS = New ADODB.Recordset
Set RS.ActiveConnection = Cnx
RS.Open "SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='BASE TABLE'"
 
strConn = "DRIVER=Sql Server;SERVER=Gestion;DATABASE=VET;UID=AD;PWD=MotDePasse"
' Parcours du recordset
Do While Not RS.EOF
   ' TABLE_SCHEMA = Nom du propriétaire
   ' TABLE_NAME   = Nom table SQL Server
   strTableSQLserver = RS("TABLE_SCHEMA") & "." & RS("TABLE_NAME")
   strTableAccess = RS("TABLE_SCHEMA") & "_" & RS("TABLE_NAME")
   'Debug.Print strTableSQLserver; Tab(50); strTableAccess
   DoCmd.TransferDatabase acImport, "ODBC", strConn, _
         acTable, strTableSQLserver, strTableAccess
   RS.MoveNext
Loop
RS.Close
Set RS = Nothing
 
Cnx.Close
Set Cnx = Nothing

Pour faire une simulation, remplace

Code:

1
2
3
   'Debug.Print strTableSQLserver; Tab(50); strTableAccess
   DoCmd.TransferDatabase acImport, "ODBC", strConn, _
         acTable, strTableSQLserver, strTableAccess

par

Code:

1
2
3
   Debug.Print strTableSQLserver; Tab(50); strTableAccess
   ' DoCmd.TransferDatabase acImport, "ODBC", strConn, _
         acTable, strTableSQLserver, strTableAccess

Ça ne risque pas de faire exploser ta base Access d'importer toutes les tables SQL Server ?

A+

18/02/2009, 15h43
fevec

bonjour LedZeppII,
D'abord merci pour ta réponse et le code fourni.
J'avais mise de côté le dossier "connection vers SQL serveur" que je reprends désormais.
Petit souci : sur le poste où je suis je n'ai que Access97

à l'exécution sur la ligne

Code:

Set Cnx = New ADODB.Connection

j'ai le message "Erreur de compilation. Type défini par l'utilisateur non défini".

Selon toi, est ce qu'il me manque une référence ?
ou bien
- ce code VBA ne peut fonctionner en Access97 ?

Merci.
Fevec
18/02/2009, 15h47
Kloun

Ajoute la référence ADODB "Microsoft ActiveX Data Objects ..."
18/02/2009, 15h56
Access Newbie

Bonjour,

Sinon une autre piste de reflexion :

créer une requete SQL direct (il faut au préalable créer une source de données ODBC via "l'administrateur de source de données ODBC")

Puis utiliser ces requetes SQL Direct pour faire des insert dans la base access.

PS : Je ne connais pas Access 97, je ne sais donc pas si ma solution est correcte ou pas.
18/02/2009, 16h38
fevec
merci à tous,
kloun : merci pour le nom de la référence, la connection est OK

Par rapport au code de LedZeppII (ci-dessus dans le post)

le ligne debug.print fonctionne et m'affiche la liste des tables
Code:

1 2 3 ' Debug.Print strTableSQLserver; Tab(50); strTableAccess DoCmd.TransferDatabase acImport, "Base de données ODBC", strConn, _ acTable, strTableSQLserver, strTableAccess
mais lorsque je veux transférer les tables, j'ai le message.

Erreur d'excution 3170 Pilotre ISAM introuvable.

il me semble que c'est le paramètre "Base de données ODBC" qui ne convient pas (c'est poutant la syntaxe de l'aide en ligne par F1)
j'ai essayé aussi "ODBC" comme dans le code de LedZeppII

quelqu'un a une piste ?

Access Newsbie :
peux tu m'en dire un peu plus, sur la mise en oeuvre de la requête SQL direct
(j'ai une source ODBC qui fonctionne)

Merci à tous
fevec
18/02/2009, 17h13
Access Newbie

Pour créer une requete SQL Direct :

1 - Créer une nouvelle requete vide.
2 - Ensuite, clic-droit sur la requete et il faut choisir "spécifique SQL \ SQL Direct"
3 - Ecrire le sql de la requete (select * from maTable)
4 - Puis faire un clic droit sur la requete et "propriétés"
5 - Changer la chaine de connexion (cliquer sur les ... au bout de la ligne)

Et voila le tour est joué !

PS : tu peux peut-etre aussi faire directement le lien sur la table dont tu as besoin.
Fichier\Données Externes\Lier les tables et choisir ODBC comme type de fichier.

Merci à tous,
à priori j'ai solutionné mon pb.

au début de la chaine de connection, j'ai rajouté ODBC; (comme indiqué dans la première partie du code de LedzeppII)
Code:

1 2 3 4 5 6 7 8 9 10 11 strConn = "ODBC;DRIVER=Sql Server;SERVER=Gestion;DATABASE=VET;UID=;PWD=" ' Parcours du recordset Do While Not RS.EOF ' TABLE_SCHEMA = Nom du propriétaire ' TABLE_NAME = Nom table SQL Server strTableSQLserver = RS("TABLE_SCHEMA") & "." & RS("TABLE_NAME") strTableAccess = RS("TABLE_SCHEMA") & "_" & RS("TABLE_NAME") ' Debug.Print strTableSQLserver; Tab(50); strTableAccess DoCmd.TransferDatabase acImport, "ODBC", strConn, _ acTable, strTableSQLserver, strTableAccess RS.MoveNext
L'import des tables fonctionne!

Merci à tous de votre contribution.
fevec