Private Sub Form_Load()
If cn.State = adStateOpen Then
Else
cn.open str
End If
sql = "select pid,psnname from psn "
If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
rs.open sql, cn, 1, 1
If rs.BOF = True And rs.EOF = True Then
Exit Sub
Else
With DataList1
Set .RowSource = rs
Set .DataSource = rs
.BoundColumn = rs.Fields(0).Name
.ListField = rs.Fields(1).Name
End With
If cn.State = adStateOpen Then cn.Close
If rs.State = adStateOpen Then rs.Close
Set cn = Nothing
Set rs = Nothing
End If
End Sub
uj5u.com熱心網友回復：
個人經驗，別整資料系結。各種坑，而且坑還不是一開始能遇到的。建議寫個函式，回圈遍歷資料集往控制元件里面填資料。自己動手豐衣足食，而且有啥問題或者有啥個性化需要也容易變通。
uj5u.com熱心網友回復：
哪位高手指點一下問題出在哪里？uj5u.com熱心網友回復：
怎么填寫資料，給一個例子，謝謝！
uj5u.com熱心網友回復：
1、取到資料集2、獲取資料集列數
3、grid設定列數與資料集列數相同
4、回圈獲取資料集列頭填寫到grid
5、獲取資料集行數
6、grid設定行數與資料集行數相同
7、雙層回圈，逐行、逐欄位填寫grid中各個格子
8、整理grid外觀
uj5u.com熱心網友回復：
rs.open sql, cn, adopenkeyset,adlockreadonly這樣試試
uj5u.com熱心網友回復：
不太喜歡使用 DataList1 控制元件，感到比較麻煩，使用 DataGrid1控制元件、MSHFlexGrid1控制元件、MSFlexGrid1控制元件都比較簡單。例如使用 DataGrid1控制元件 + Adodc1控制元件，系結資料庫顯示資料特別簡單：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\資料庫名稱.mdb;Persist Security Info=False" '系結資料庫連接
Adodc1.RecordSource = "Select * From 資料表名" '系結資料表的記錄集
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1 '在 DataGrid1 控制元件顯示資料
僅僅四條陳述句，不是特別簡單嗎？
當然如果使用ADO物件也可以，但必須獲取所有記錄。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40447.html
標籤：控件
上一篇：VB 決議XML的問題