10 05 2010

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的漏洞