Bonjour à tous,

sous A97 (ou A02), je souhaite importer des tables contenues dans une base SQL Server
J'ai jamais fait ça.
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 : 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
 
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