Discussion :

[Kayna09931]

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

[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)

[Kayna09931]

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 :

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
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

[LedZeppII]

Bonsoir,

Le dernier argument de cette ligne est incorrect

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[Kayna09931]

Bonsoir,

Le dernier argument de cette ligne est incorrect

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tofalu]

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