VB+Datagrid1的应用

1. TEXT中显示Datagrid选中的内容

Private Sub DataGrid1_Click()

Text1.Text = Adodc1.Recordset.Fields(0) '(0)表示第1字段，…以此类推
Text2.Text = Adodc1.Recordset.Fields(1)

End Sub

2. TEXT中显示Datagrid所选中的行数

Private Sub DataGrid1_Click()

Text1.Text = DataGrid1.Row

End Sub
将当前选定(光标所在)的DataGrid1行数返回给Text

3. Datagrid1显示数据库内容
建个 Adodc1，属性设置好数据库的连接
adodc1的属性，commandtype 设置为 adcmdtext
Private Sub Command1_Click()

Adodc1.RecordSource = "select * from a where id = 10"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End Sub

4. 统计表中记录的个数

Private Sub Command1_Click()

Adodc1.Caption = "共" & DataGrid1.ApproxCount & "条记录"

End Sub

DataGrid1.ApproxCount 得到所有行数
DataGrid1.Columns.Count 返回列数
DataGrid1.Row 用户选择的行数

Datagrid

vb连接sql数据库的模块以及使用实例 dvbbs 8.1.1的漏洞