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

Question

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

Answer 1

**********************************
工程--->引用--->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

Answer 2

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

Answer 3

Dim Con1 As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim SqlStr As StringCon1.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

Answer 4

Set DataGrid1.DataSource = Rs