数据环境、真正的数据库网格和 VB6

Question

我终于能够获得我想要在数据环境中显示的所有列，并添加了一个额外的命令来尝试将这些值从本地数据库拉入网格。

我运行遇到的问题是值没有出现在我的网格中。

我有运行提取数据的正确命令，我相信：我进行了相同的查询，运行它在本地数据库上，它确实输出了我期望的值。然后我将 Environment 命令克隆到一个记录集。

If gbEnableD2D Then
    If DataEnvironment7.rscmdMeterReadsDistinctD2D.State <> adStateOpen Then
        DataEnvironment7.cmdMeterReadsDistinctD2D
    End If
Else

If gbEnableD2D Then
    Set rsDevices = DataEnvironment7.rscmdMeterReadsDistinctD2D.Clone
Else

' Display all the columns I want to display

从那里我可以确定列确实按预期显示但在显示以及使用监视系统中我无法访问 MeterReadsDistinctD2D 记录集也不包含值但确实有我期望的领域。

关于为什么会发生这种情况的任何想法，或者我如何着手追踪如何确定我如何确定这些值是否在我的数据环境中，或者如果它们在其中，为什么它们没有被传递到记录集？

Answer 1

您需要确保 TrueDBGrid 处于绑定模式，然后将其绑定到数据控件并将数据控件的 Recordset/Recordsource 设置为您的 SQL 查询。确保数据控件的 ConnectionString 成功连接到您的数据库。

数据环境、真正的数据库网格和 VB6

Data Envrionments, True DB grids and VB6

vb6

recordset

truedbgrid