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