rs.open "select * from table where 字段名=条件",cn,1,1 set dgrid.datasource=rs
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) 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 where name='aaa'", CN, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = Rs
可以通过工程中的引用ado记录集来实现 Dim CN As New ADODB.Connection Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;User Id=sa;Password=sa;" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from employees where name='aaa'", CN, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = Rs
set dgrid.datasource=rs
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) 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 where name='aaa'", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees where name='aaa'", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs