Select from SQL Server into Access table

Version imprimable

02/03/2009, 19h07
Blaede

Select from SQL Server into Access table
Bonjour à tous,

J'ai un fichier .txt qui contient une liste de numéros.
Je parcours le fichier ligne par ligne et pour chaque numéro je voudrais faire :
Code:

1 2 3 4 5 SELECT a, b, c FROM SQLServer_table INTO Access_table WHERE SQLServer_table.id_numero = numero
SQLServer_table est donc une table qui se trouve sur une instance SQLServer 2005 et Access_table est une table dans la DB Access dans laquelle se trouve le code VB.

Parcourir le fichier n'est pas un problème mais je n'arrive pas à exécuter la commande et gérer les connections aux deux DB.

Pourriez-vous m'aider ?

D'avance merci !
Blaede

Bonsoir,

Je vois deux approches possibles.

Avec une table liée ODBC.
Access_table : table Access locale
dbo_SQLServer_table : table liée ODBC vers table SQL Server SQLServer_table

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim strSQL As String
Dim db as DAO.Database, lRecs As Long
 
set db=currentDb
 
strSQL ="INSERT INTO Access_table (a, b, c) " & _
"SELECT a, b, c " & _
"FROM dbo_SQLServer_table " & _
"WHERE dbo_SQLServer_table.id_numero = " & numero
' Exécution de l'instruction SQL
db.Execute strSQL
' Nombre d'enregistrement(s) impliqué(s)
lRecs = db.RecordsAffected

Avec deux recordsets ADO.
Dans cet exemple on recherche 7 code clients (type texte) dans une table SQL Serveur.
Si un code client est trouvé, un enregistrement est ajouté à la table Access locale, avec les valeurs des champs de l'enregistrement SQL Server.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Dim oCnSQLSvr As ADODB.Connection, rsSqlSvr As ADODB.Recordset
Dim oCnAccess As ADODB.Connection, rsAcc As ADODB.Recordset
Dim tab1() As Variant, i As Integer
Dim strSql As String
 
' Réutilise connexion de la base de donnée Access
Set oCnAccess = CurrentProject.Connection
' Nouveau recordset pour table Access
Set rsAcc = New ADODB.Recordset
rsAcc.CursorLocation = adUseClient
' Ouvre recordset sur table Access et fournit
' les paramètres du recordset via la méthode Open
rsAcc.Open "Clients", oCnAccess, adOpenStatic, adLockOptimistic, adCmdTable
 
' Nouvelle connexion SQL Server
Set oCnSQLSvr = New ADODB.Connection
' Etablit connexion à l'aide d'une chaîne de connexion
oCnSQLSvr.Open "Provider=SQLOLEDB;Data Source=NomServeur\NomInstance;" & _
               "Initial Catalog=NomBDD;Integrated Security=SSPI"
' Nouveau recordset pour SQL Server
Set rsSqlSvr = New ADODB.Recordset
' Paramètres du recordset
' (on ne les fournira pas à la méthode open)
rsSqlSvr.CursorLocation = adUseClient
rsSqlSvr.CursorType = adOpenStatic
rsSqlSvr.LockType = adLockReadOnly
Set rsSqlSvr.ActiveConnection = oCnSQLSvr
 
' Liste des codes clients à chercher
tab1 = Array("BERGS", "BLAUS", "ZZZZZ", "BOLID", "BONAP", "BOTTM", "BSBEV")
 
For i = LBound(tab1) To UBound(tab1)
    ' Instruction SQL SELECT sur la table dbo.Clients du serveur SQL Server
    strSql = "SELECT CodeClient, Societe, Pays FROM dbo.Clients " & _
             "WHERE CodeClient='" & tab1(i) & "'"
    ' Ouvre recordset sur Instruction SQL SELECT
    rsSqlSvr.Open strSql
    If Not rsSqlSvr.EOF Then
       ' Ajoute un enregistrement à la table Access
       rsAcc.AddNew
       rsAcc.Fields("CodeClient") = rsSqlSvr.Fields("CodeClient")
       rsAcc.Fields("Societe") = rsSqlSvr.Fields("Societe")
       rsAcc.Fields("Pays") = rsSqlSvr.Fields("Pays")
       rsAcc.Update
    End If
    rsSqlSvr.Close
Next
 
'Fermeture et libération des variables objets
oCnSQLSvr.Close
Set oCnSQLSvr = Nothing
 
rsAcc.Close
Set rsAcc = Nothing
Set oCnAccess = Nothing

La deuxième approche est plus rapide s'il y a beaucoup d'interrogations à faire sur le serveur SQL server.

A+

03/03/2009, 09h39
Blaede

J'avais essayé la première solution mais le temps de réponse était beaucoup trop long et les données récupérées étaient incohérentes.

La deuxième solution fonctionne parfaitement. Merci mille fois !
Je n'aurais jamais trouvé ça tout seul :mouarf:
05/03/2009, 09h28
Blaede
Je profite de ce post pour poser une nouvelle question.

Que dois-je modifier dans le code donné plus haut pour que le résultat de la requête soit affiché et non pas inséré dans une table Access ? (autrement dit chaque passage dans ma boucle ajouterait un record dans le record set mais sans faire d'insert dans une table et j'afficherais le contenu du record set en sortant de la boucle)
Code:

1 2 3 4 5 6 7 8 While not EOF numero = readline SELECT a, b, c FROM SQLServer_table WHERE SQLServer_table.id_numero = numero WEND Afficher résultat final
Encore merci pour votre aide !

Bonjour,

Un recordset (ADO ou DAO) ne s'affiche pas.
C'est un moyen logiciel de manipuler des données stockées dans des tables.
Dans mon exemple, en remplissant le recordset rsAcc, je remplis la table Clients.
C'est comme si je faisais des INSERT en SQL.

Au lieu de remplir un recordset, tu pourrai remplir une zone de liste.
Mais je trouve que le plus simple est de remplir une table.
C'est quand même le support idéal dans une base de données pour stocker des données :mouarf:

Ceci dit, voici mon deuxième exemple remanié pour remplir un recordset qui n'est rattaché à rien.
Pas de connexion, pas de table ou requête source.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Dim oCnSQLSvr As ADODB.Connection, rsSqlSvr As ADODB.Recordset
Dim rsLst As ADODB.Recordset
Dim tab1() As Variant, i As Integer
Dim strSql As String
 
' Nouveau recordset ADO
Set rsLst = New ADODB.Recordset
rsLst.CursorLocation = adUseClient
' Crée les champs
rsLst.Fields.Append "CodeClient", adVarChar, 5
rsLst.Fields.Append "Societe", adVarChar, 40
rsLst.Fields.Append "Pays", adVarChar, 15
' Ouvre le recordset sans connexion et sans source
rsLst.Open
 
' Nouvelle connexion SQL Server
Set oCnSQLSvr = New ADODB.Connection
' Etablit connexion à l'aide d'une chaîne de connexion
oCnSQLSvr.Open "Provider=SQLOLEDB;Data Source=NomServeur\NomInstance;" & _
               "Initial Catalog=NomBDD;Integrated Security=SSPI"
' Nouveau recordset pour SQL Server
Set rsSqlSvr = New ADODB.Recordset
' Paramètres du recordset
' (on ne les fournira pas à la méthode open)
rsSqlSvr.CursorLocation = adUseClient
rsSqlSvr.CursorType = adOpenStatic
rsSqlSvr.LockType = adLockReadOnly
Set rsSqlSvr.ActiveConnection = oCnSQLSvr
 
' Liste des codes clients à chercher
tab1 = Array("BERGS", "BLAUS", "ZZZZZ", "BOLID", "BONAP", "BOTTM", "BSBEV")
 
For i = LBound(tab1) To UBound(tab1)
    ' Instruction SQL SELECT sur la table dbo.Clients du serveur SQL Server
    strSql = "SELECT CodeClient, Societe, Pays FROM dbo.Clients " & _
             "WHERE CodeClient='" & tab1(i) & "'"
    ' Ouvre recordset sur Instruction SQL SELECT
    rsSqlSvr.Open strSql
    If Not rsSqlSvr.EOF Then
       ' Ajoute un enregistrement au recordset 'sans source'
       rsLst.AddNew
       rsLst.Fields("CodeClient") = rsSqlSvr.Fields("CodeClient")
       rsLst.Fields("Societe") = rsSqlSvr.Fields("Societe")
       rsLst.Fields("Pays") = rsSqlSvr.Fields("Pays")
       rsLst.Update
    End If
    rsSqlSvr.Close
Next
 
'Fermeture et libération des variables objets
Set rsSqlSvr = Nothing
oCnSQLSvr.Close
Set oCnSQLSvr = Nothing

A la fin de ce code, je me retrouve avec les résultats des requêtes successives dans le recordset rsLst.
Admettons que j'ai un formulaire ouvert fmList ayant une zone de liste lstResultat.
Voici comment copier le recordset dans la zone de liste lstResultat:

Code:

1
2
3
4
5
6
7
Dim strLst As String
 
If rsLst.RecordCount > 0 Then rsLst.MoveFirst
strLst = rsLst.GetString(adClipString, , ";", ";", "")
Forms!fmList!lstResultat.RowSourceType = "Value List"
Forms!fmList!lstResultat.ColumnCount = 3
Forms!fmList!lstResultat.RowSource = strLst

Voila, c'est tout ce que j'ai comme idée.

Ha non. Une autre idée : Créez des formulaires sans table avec le Data Shaping ADO

A+

08/03/2009, 11h45
Kloun

Ou bien, tu crées une requète SQL Direct et tu t'en sers comme source de ton formulaire.
(ce qui fait un peu moins usine à gaz)
09/03/2009, 13h22
Blaede

Merci à vous tous :king: