Vb6 以编程方式更改Janus GridEx网格数据库名称

我正在使用VisualBasic6中的JanusGridex网格控件，并试图在使用连接之前以编程方式更改其中一个属性（DatabaseName）。我在“属性”窗口中设置的可能是错误的，我希望在使用它之前动态设置它。我尝试在表单_Initialize（）或表单_Load（）中设置它，但在使用它之前，它们都不会覆盖属性窗口中的on

---

有什么想法吗

创建一个自定义记录集，并将其设置为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"

---

间隔值被保留，用户可以查看更多的可读性

这是否使用Janus GridEx？是的，这里是gData.HoldFields和Set gData.ADORecordset，gData是janux GridEx控件。