我想從 設定檔中讀出 DataGrid 的設定 - DataSource 和 Columns 設定,但在網路上都找不到這樣的
範例,以下是個人測試,不知方法是否正確,現問題如下
1. 不要用 adodc ,用 adodb 當 DataGrid 的 DataSource ==＞ 找不到 samples,不知這樣是否正確
2. Set oGrid.DataSource = oRS1 後,DataGrid.Columns 似乎會自動根據 Recordset 建好,
Column 順序,Field 內容,Columns 的數目是由設定檔讀出,和 Recordset Field 順序不一定一樣
請問要如何設定 DataGrid.Columns 的內容?? 請各位高手指導,謝謝
Dim oConn As ADODB.Connection
Dim oRS1 As ADODB.Recordset
Dim oRS2 As ADODB.Recordset
Private Sub Command1_Click()
'Create a new Recordset
Set oRS2 = New ADODB.Recordset
oRS2.CursorLocation = adUseClient
oRS2.Open "Artists", oConn, adOpenKeyset, adLockPessimistic ', adCmdTableDirect
Set oGrid.DataSource = oRS2
oGrid.Refresh
End Sub
Private Sub Form_Load()
Set oConn = New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\VBTEST\DATA02\APP.MDB;"
'Create a new Recordset
Set oRS1 = New ADODB.Recordset
oRS1.CursorLocation = adUseClient
oRS1.Open "Titles", oConn, adOpenKeyset, adLockPessimistic ', adCmdTableDirect
Set oGrid.DataSource = oRS1
oGrid.Columns(0).Caption = "序"
oGrid.Columns(0).DataField = "Titles" ==＞ 此行似無作用,改成別的 field name,資料行是
Recordset 的第一個 Field 的內容
oGrid.Columns(1).Caption = "書名"
oGrid.Columns(1).DataField = "Artist_ID" ==＞ 同上,無作用
End Sub
Private Sub Form_Terminate()
oConn.Close
Set oConn = Nothing
End Sub