以編程方式更改Janus GridEx網格DatabaseName

Question

我在Visual Basic 6中使用Janus GridEx網格控件，並試圖在使用連接之前以編程方式更改其中一個屬性（DatabaseName）。我在屬性窗口中設置的可能是錯誤的，我想在使用它之前動態設置它。我試圖在Form_Initialize（）或Form_Load（）中設置它，並且它們都沒有在屬性窗口中使用on之前覆蓋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" 

間隔值保留，用戶可以查看一些人類可讀