Transfert de données Access vers SQL SERVER

Version imprimable

29/10/2009, 09h50
Kayna09931

Transfert de données Access vers SQL SERVER

Bonjour,

je vous explique mon problème , j'ai une BD Access qui est lié avec plusieurs tables situé dans un serveur distant SQL Server , via un formulaire Access j'importe un fichier XL dont je dois inséré les champs dans la table de SQL Server .
Pour cela j'ai crée une table Access intermédiaire mais je ne sais pas comment mettre a jour(inséré de nouvelles lignes) la table situé dans SQL Server depuis la table intermédiaire.
Sauriez vous comment faire ??

Merci d'avance
30/10/2009, 10h52
Tofalu

Lié la table SQL à votre base Access via l'outil d'importation ou bien lancez des ordres SQL avec ADODB (voir le tutoriel de JM Rabilloud les recordset ADO)

erreur clause from

Citation:

Envoyé par Tofalu

Lié la table SQL à votre base Access via l'outil d'importation ou bien lancez des ordres SQL avec ADODB (voir le tutoriel de JM Rabilloud les recordset ADO)

J'ai bien utilisé ADODB , mais lors de l'exécution de la requête un erreur : erreur de syntaxe dans la clause from apparait alors qu'il en a pas c'est une simple requête de sélection

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
Dim oCnSQLSvr As New ADODB.connection
Dim rsSqlSvr As New ADODB.Recordset
Dim oCnAccess As New ADODB.connection
Dim rsAcc As New ADODB.Recordset
Dim strSql As String
 
 
 
' Réutilise connexion de la base de donnée Access
 Set oCnAccess = CurrentProject.connection
 rsAcc.CursorLocation = adUseClient
 rsAcc.CursorType = adOpenStatic
 rsAcc.LockType = adLockReadOnly
 Set rsAcc.ActiveConnection = oCnAccess
 
 
 
' Etablit connexion à l'aide d'une chaîne de connexion
oCnSQLSvr.ConnectionString = "Driver={SQL Server};server=XXXXX;IUD=;PWD=;database=XXXXX"
oCnSQLSvr.Open
rsSqlSvr.CursorLocation = adUseClient
rsSqlSvr.CursorType = adOpenStatic
Set rsSqlSvr.ActiveConnection = oCnSQLSvr
 
 
rsSqlSvr.Open "test", oCnSQLSvr, adOpenStatic, adLockOptimistic, adCmdTable
 
 
 
' Paramètres du recordset
' (on ne les fournira pas à la méthode open)
 
 
    strSql = "select temp.id,temp.prix from temp"
 
    ' Ouvre recordset sur Instruction SQL SELECT
 
    rsAcc.Open strSql, oCnAccess, adOpenDynamic, adLockOptimistic, adCmdTable

merci d'avance pour votre aide

18/11/2009, 19h28
LedZeppII

Bonsoir,

Le dernier argument de cette ligne est incorrect

Code:

rsAcc.Open strSql, oCnAccess, adOpenDynamic, adLockOptimistic, adCmdTable

adCmdTable "dit" à ADO que strSql contient un nom de table.
Essayer en le remplaçant par adCmdText.

Code:

rsAcc.Open strSql, oCnAccess, adOpenDynamic, adLockOptimistic, adCmdText

A+
23/11/2009, 14h04
Kayna09931

Citation:

Envoyé par LedZeppII

Bonsoir,

Le dernier argument de cette ligne est incorrect

Code:

rsAcc.Open strSql, oCnAccess, adOpenDynamic, adLockOptimistic, adCmdTable

adCmdTable "dit" à ADO que strSql contient un nom de table.
Essayer en le remplaçant par adCmdText.

Code:

rsAcc.Open strSql, oCnAccess, adOpenDynamic, adLockOptimistic, adCmdText

A+

merci pour votre aide mais cela ne change rien ,j'ai toujours la même erreur , quelqu'un aurait une idée ???

Merci
23/11/2009, 15h46
Tofalu

Temp n'est il pas un mot clé SQL Server ? Essayez de nommer votre table autrement.