0

このMicrosoftKBの記事では、Accessプロジェクトで現在使用されているデータベースとは別のデータベースでクエリを実行する方法について詳しく説明しています。ただし、DBase、Foxpro、Paradox、BTrieve、およびODBCへの接続方法のみが記載されています。

私はこのようなことをしたいです：

UPDATE MSSQLDatabase.Table
    SET MSSQLDatabase.Table.Column = AccessDatabase.Table.Column
    WHERE MSSQLDatabase.Table.Column = AccessDatabase.Table.ID

INSERT INTO AccessDatabase.Table
    VALUES (AccessDatabase.Table.ID)

どこから始めればよいか教えていただけますか？接続したいデータベースは、SQLServer2008プロバイダーのネイティブ接続です。Access2007を使用しています。

VBAでこれを行うのは完璧です。

4

2 に答える 2

1

MS Access で SQL Server を操作する最も簡単な方法は、リンク テーブルを使用することです。ただし、パススルー クエリを実行して、インラインで接続を参照することもできます。

SELECT * FROM [ODBC;FILEDSN=Z:\Docs\Test.dsn;].table_1

または

SELECT * FROM 
  [ODBC;DRIVER=SQL Server;SERVER=srvr;Trusted_Connection=Yes;DATABASE=Test;].table_1

または

SELECT * FROM [ODBC;Driver={SQL Server Native Client 11.0};Server=svr;Database=test;Trusted_Connection=yes;].table_1

http://www.connectionstrings.com/sql-server-2008も参照してください。

于 2012-09-26T12:53:47.840 に答える
0

このソリューションにより、エラーをキャッチできます。

Private Sub Command10_Click()
    On Error GoTo Err1:
        Dim cn As ADODB.Connection
        Set cn = New ADODB.Connection
        With cn
            .Provider = "SQL Native Client"
            .ConnectionString = "Server=myserver\myinstance;Database=mydb;Uid=myuser;Pwd=mypass;]"
            .Open
        End With

        MsgBox "Connection successful!"
        cn.Close
        Exit Sub

    Err1:
        MsgBox Err.DESCRIPTION
End Sub

注意すべき唯一のことは、Visual Basic Editor 内で、最初に に移動してTools > Referencesをチェックする必要があるということですMicrosoft ActiveX Data Objects 2.x Library。

于 2012-10-01T14:02:06.420 に答える