vb6 - 以编程方式更改 Janus GridEx 网格 DatabaseName

Question

我在 Visual Basic 6 中使用 Janus GridEx 网格控件，并尝试在使用连接之前以编程方式更改属性之一（DatabaseName）。我在属性窗口中设置的那个可能是错误的，我想在使用它之前动态设置它。我尝试在 Form_Initialize() 或 Form_Load() 中设置它，并且在使用之前它们都没有覆盖属性窗口中的 on。

有任何想法吗？

Answer 1

创建一个自定义记录集并设置为 ADORecordset 属性的网格

gData.HoldFields
Set gData.ADORecordset = rstData

如果您创建了一个与数据库具有相同架构的记录集，您可以这样做

保存的数据

IDataRepository.Save(gData.ADORecordset)

保存骨架

function Save (rs as adodb.recordset)

  Dim cn As ADODB.Connection

  Set cn = new ADODB.Connection
  cn.CursorLocation = adUseClient
  cn.Open Cnstr

  Set rs.ActiveConnection = cn
  If rs.LockType = adLockBatchOptimistic Then
     rs.UpdateBatch
  Else
     rs.Update
  End If
  Set rs.ActiveConnection = Nothing

  cn.Close
  Set cn = Nothing
end function    

例如，对于带有掩码的属性，您可以

gData.Columns("Status").ValueList.Clear

gData.Columns("Status").ValueList.Add "A", "Accepted"
gData.Columns("Status").ValueList.Add "R", "Rejected"

间隔值被保留，用户可以查看一些更易于阅读的内容