关于ADODC控件的数据库连接的问题？？

Question

在用ADODC建立连接以后，数据库路径老是要更改，我知道可以用虚拟路径来设置，却不知道在哪里设置？帮个忙吧！！！
现在我每换一台机器就要更改路径，郁闷死了

Answer 1

利用代码
ADO对象连接数据库,下面给你一个例子Public str1 As String
Dim conn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\教务管理\教务管理数据字典.mdb;Mode=Read;Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open
Set rs1 = New ADODB.Recordset
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockOptimistic
 Set rs1 = conn.Execute(str)

Answer 2

'--如何用Adodc控件代碼去連接Access
Private Sub Command1_Click()
 Dim strConn As String
 
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 ' adodc的連接字符串
 Adodc1.ConnectionString = strConn
 
 ' 指定Command物件的形態
 Adodc1.CommandType = adCmdText
 
 ' 設置傳回一個資料錄集。
 Adodc1.RecordSource = "Select * from People"
 
 ' 將記錄集合綁定DataGrid1
 Set DataGrid2.DataSource = Adodc1
End Sub

Answer 3

用ODBC就可以了,不需要改路径,性能没有什么太大的下降

Answer 4

你可以写一个函数来判断设置Public Function MakePath(ByVal OldPath As String) As String   '该函数用于判断数据库的路径是否在根目录下
    MakePath = OldPath
    If Right(MakePath, 1) <> "\" Then MakePath = MakePath + "\"
End Function