從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，真正顯示爲-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")