作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 请问VB要用ADO将资料show在datagrid要꘠…
时间Sun Feb 25 16:01:25 2007
在设计模式中指定：
DataGrid 属性页中(滑鼠右键-属性)，资料行那里设定要显示的栏位
或者在执行阶段中指定：
Dim i As Integer, c As Integer
c = dg.Columns.Count - 1
For i = 0 To rs.Fields.Count - 1
If i > c Then c = c + 1: dg.Columns.Add c
dg.Columns(i).DataField = rs.Fields(i).Name
dg.Columns(i).Caption = rs.Fields(i).Name
Next
For i = i + 1 To c
dg.Columns.Remove i
Next
Set dg.DataSource = rs
※ 引述《Visualgirl (可爱女人)》之铭言：
: 我有个form上面有一个command按钮和datagrid
: 我要写一个
: 如果我按command则datagrid会show所有学生资料
: 要如何写?
: 我的程式如下:
: Dim conn As New ADODB.Connection
: Dim rs As New ADODB.Recordset
: Private Sub Form_Load()
: Dim Connstr As String
: Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;
: Persist Security Info=False;Data Source=D:\temp\school.mdb";
: conn.Open Connstr
: rs.CursorLocation = adUseServer
: End Sub
: Private Sub Command1_Click()
: SQL = "Select * From b_student"
: rs.Open SQL, conn, adOpenKeyset, adLockOptimistic
: Set DataGrid1.DataSource = rs
: XXXXXXXXXXXXXXXXXXXXX
: End Sub
: 我将rs都set给datagrid1,但datagrid1要如何show出资料??
: XXXX的部份要如何写??
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.68.49