菜问题，怎样用代码连接数据库？？

Question

现用控件Adodc1连接，可是连接时数据库的位置是绝对路径，怎样通过代码的方式达到连接的效果。谢谢各位。

Answer 1

'连接SQL
Sub sql()
    Dim iRe As ADODB.Recordset
    Dim iConc As String
    
    iConc = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
        "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"
    Set iRe = New ADODB.Recordset
    iRe.Open "表名", iConc, adOpenKeyset, adLockOptimistic
    iRe.Save "c:\aa.xml", adPersistXML
    
    Debug.Print iRe.Fields("字段名")
End Sub

Answer 2

'连接ACCESS
Sub access()
    Dim iRe As ADODB.Recordset
    Dim iConc As String
    
    iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
        ";Data Source=F:\My Documents\客户资料1.mdb"
    Set iRe = New ADODB.Recordset
    With iRe
        .CursorLocation = adUseClient
        .Open "select * from [abc#txt]", iConc, adOpenKeyset, adLockOptimistic
        .PageSize = 10
        
    End With
    MsgBox iRe.Fields("userid").Properties("title")
End Sub

Answer 3

把access数据库放在程序当前目录下，用相对路径app.path
工程--->引用--->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;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"     CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic    MsgBox Rs.Fields(0)

Answer 4

谢谢，各位高手了还有个问题，就是我想用DataGrid1控件来显示Access数据表。怎么用代码方式实现呀？？？再次感谢还有就是我想给各位散分，不会散，请指教。

Answer 5

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

Answer 6

请参考
http://expert.csdn.net/Expert/topic/2710/2710006.xml?temp=8.526248E-02

Answer 7

Set DataGrid1.DataSource = Rs
这种方式就是在绑定了，非常的不好操作，虽然简单。能否一个一个的填充DataGrid控件？我已经发帖问了，希望大家来讨论，同时希望高手也不吝赐教。