关于 DataGrid与数据库的连接问题

[sdgqx]

我想在程序编码中连接
不知具体怎样操作
请指点
补充：
我不想通过属性拦设置属性连接
这样灵活性很少

[lisen101]

**********************************
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

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, adLockBatchOptimistic

Set DataGrid1.DataSource = Rs
******************** 改为你的name

[cuijiajian]

同上，不过你也可以用变量去替换SQL语句，那样你的表就更加灵活了！

[Yeahcity]

Dim Con1 As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim SqlStr As String

Con1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NWIND.mdb;Mode=ReadWrite;Persist Security Info=False"
Con1.Open
Rst.CursorLocation = adUseClient
SqlStr = "select * from NWIND"
Rst.Open SqlStr, Con1, adOpenDynamic, adLockOptimistic
DataGrid1.ClearFields
Set DataGrid1.DataSource = Rst
DataGrid1.Refresh

[Yeahcity]

哥们，给分啦！

[chenkangli]

Set DataGrid1.DataSource = Rs