用DATAGRID,设置为允许添加和删除 引用ADO Dim CN As New ADODB.Connection '定义数据库的连接存放数据和代码 Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from employees", CN, adOpenDynamic Set DataGrid1.DataSource = Rs
能具体点嘛,用datagrid和text,移动赋值?具体是怎么样呢,请教请教!!!多谢了!
用DATAGRID,设置为允许添加和删除
引用ADO
Dim CN As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic Set DataGrid1.DataSource = Rs