從MS Access中的Visual Basic中的SQL Server數據庫讀取數據

Question

從MS Access在VB中從SQL Server數據庫讀取數據的最佳方法是什么？

我已經建立了一個SQL Server數據庫，並且正在Access中進行表單等操作。 現在，我需要讀取一個布爾值，並在VB中這樣做。

我想這樣做而無需打開新連接。 有可能嗎？

Answer 1

您可以對鏈接表運行查詢。 據我所知，SQL Server中布爾的通常選擇是：

SELECT dbo_Table1.ID, dbo_Table1.ABoolean
FROM dbo_Table1
WHERE dbo_Table1.ABoolean=True

在MS Access中，True顯示為-1，在SQL Server中顯示為1。

如果需要的話，查詢也可以通過VBA運行。

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("dbo_table_1")
Do While Not rs.EOF
    If rs!ABoolean = True Then
        Debug.Print rs!ID
    End If
    rs.MoveNext
Loop

要么

sSQL = "SELECT ID, ABoolean FROM dbo_table_1 WHERE ABoolean=True"
Set rs = CurrentDb.OpenRecordset(sSQL)
rs.MoveLast
Debug.Print rs.RecordCount

要么

Debug.Print DLookup("Aboolean", "dbo_table_1", "ID=37")