MS Accessを介してSQL Serverテーブルを更新する

Question

remoteTable（リモートSQL Serverインスタンス内）のデータをlocalTable（ローカルMSアクセス内）のデータで挿入したいとします。

Accessでは、この更新プログラムを実行するボタンがフォームにあります。そのため、SQL Serverにアクセスするための資格情報をユーザーから隠す必要があります。

多くのユーザーがこの更新プログラムを実行するため、Accessでリンクテーブルに対してSQL ServerへのDSNレス接続を作成する関数またはプロシージャを作成して、ODBC接続を作成しないようにする必要があります。ユーザーにとってシンプルです。

Private Sub SendDataToSQLServerWithoutCreatingODBC_Click() 

    'call a function or procedure to connect to remote SQL Server 
    'update remoteTable with retrieved data from localTable 
    'in T-SQL, it would be: INSERT INTO remoteTable SELECT * FROM localTable 

End Sub 

ありがとうございます。

Answer 1

あなたは、テーブル定義とクエリ定義を使用して、一時的なリンクテーブルを使用することができます。

（このコードは、リモート・テーブルTable1にローカルテーブルTable1からすべてのレコードを挿入する）

Public Sub InsertExternal() 
    Dim db As DAO.Database 
    Dim tempTDF As DAO.TableDef 
    Dim qdf As DAO.QueryDef 
    Set db = CurrentDb 
    Set tempTDF = db.CreateTableDef("#Temp") 
    tempTDF.Connect = "ODBC;Driver={SQL Server Native Client 11.0};Server=localhost;Database=TestDB;Trusted_Connection=yes;" 'Credentials here 
    tempTDF.SourceTableName = "Table1" 
    db.TableDefs.Append tempTDF 
    Set qdf = db.CreateQueryDef("", "INSERT INTO [#Temp](Field1) SELECT Table1.Field1 FROM Table1") 
    qdf.Execute 
    db.TableDefs.Delete "#Temp" 
End Sub 

を必要な場所にエラー処理を追加し、接続文字列、フィールド、およびテーブルの名前を記入してください。