sql-server - 在 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")