从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")