连接DataGrid
Dim CN As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = Rs
注意:要加上红色的行,否则总是出错
控制DataGrid
DataGrid1.Columns.Remove(0) '删除0号字段
DataGrid1.Columns.Add(0).Caption="Name" '标签头
DataGrod1.Columns(0).DataField="Name" '对应的字段