VBAにアクセスSQL Serverテーブルの挿入

Question

私はMS Accessを扱うときにいくつか問題があります。私はSQL ServerとMS Accessを一緒に使用しています。

新しいテーブルにデータを挿入しようとしました。

まず、このプログラムは、リストにアイテムを追加するように要求します（これは一時テーブルのようなものです）。そして、データを確認する別の送信ボタンがあります（このステップが必要であり、非効率的ではありません。このステップについては質問しないでください）。

リストにデータを追加するには、ストアドプロシージャを使用します。しかし、私はデータを再度提出するために何をする必要があるのか​​分かりません。ここで

私のコードです：

Dim rs As ADODB.Recordset 

strConn = "DRIVER=SQL Server;SERVER=CHU-AS-0004;DATABASE=RTC_LaplaceD_DEV;Trusted_Connection=Yes;" 
Set conn = New ADODB.Connection 
conn.Open strConn 
cmd.ActiveConnection = conn 
Set rs = New ADODB.Recordset 
rs.Open "Insert into dbo.Blend values(List731.Column(1, introw),List731.Column(2, introw),TextRequestNo.Value, List731.Column(3, introw),List731.Column(4, introw),List731.Column(5, introw))" 
conn.Close 
Set rs = Nothing 
MsgBox "Done" 

私はこのコードを実行すると、私はこのエラーを取得：

私はいくつか欠けているが、私の中にあると思いますコードを実行する方法はわかりません。 これに関する情報を私に与えることができる人はいますか？

Answer 1

このようなことを行う方法はたくさんあります。このようなものは、仕事を終わらせなければなりません。

Sub MoveDateFromAccessToSQLServer() 

Dim adoCN As ADODB.Connection 
Dim sConnString As String 
Dim sSQL As String 
Dim lRow As Long, lCol As Long 

sConnString = "Provider=sqloledb;Server=servername;Database=NORTHWIND;User Id=xx;Password=password" 

Set adoCN = CreateObject("ADODB.Connection") 

'adoCN.Open sConnString 

'Assumes that you have Field1, Field2 and Field3 in columns A, B and C 
'Text values must be enclosed in apostrophes whereas numeric values should not. 



    sSQL = "INSERT INTO YOUR_TABLE (FIELD1, FIELD2, FIELD3) " & _ 
      " VALUES (" & _ 
      "'" & Column(1, introw) & "', " & _ 
      "'" & Column(2, introw) & "', " & _ 
      "'" & Column(3, introw) & "')" 

    adoCN.Execute sSQL 



adoCN.Close 

Set adoCN = Nothing 


End Sub