如何改变adodc控件中的数据库的路径？在线等

Question

改变Adodc的ConnectionString就可以了。

Answer 1

app.path & "your path"

Answer 2

你要的是运行中是不是呢?
如果不是的话
你大可以在属性中修改.
运行中的话就使用APP.PATH方法了.

Answer 3

一个实例：adodc1.connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                   & "Data Source=" & App.Path & "\data\月欠税情况.mdb;" _
                   & "Persist Security Info=False"app.path的用法：      返回或设置当前路径。在设计时是不可用的。对于 App 对象，在运行时是只读的。语法app.PathPath 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
pathname 一个用来计算路径名的字符串表达式。 
说明Path 属性的值是一个指示路径的字符串，例如 C:\Ob 或 C:\Windows\System。对于 DirListBox 或 FileListBox 控件，在运行时当控件被创建时，其缺省值是当前路径。对于 App 对象，当从开发环境运行该应用程序时 Path 指定 .VBP 工程文件的路径，或者当把应用程序当作一个可执行文件运行时 Path 指定 .exe 文件。当建立一个应用程序的文件浏览器和操作能力时使用这个属性。设置 Path 属性对控件产生的影响与 MS-DOS 的 chdir 命令相似－相关的路径可以带有或不带有驱动器的描述。只有指定带冒号 (:) 的驱动器才能在那个驱动器上选择当前目录。

Answer 4

给你看点代码,你大概就可以明白了,Public g_strAppPath As String         '程序所在路径
Public g_strServerName As String      '服务器名称
Public g_strLinkName As String        '连接用户名
Public g_strLinkPsd As String         '连接密码
Public g_strDBName As String          '数据库名
Public g_strUserName As String        '用户名Public Sub InitVar()
    '初始化数据库连接
    g_strServerName = GetSetting(appname:=APP_NAME, section:="Server", _
                      Key:="ServerName", Default:="127.0.0.1")
    g_strLinkName = GetSetting(appname:=APP_NAME, section:="Server", _
                    Key:="LinkName", Default:="sa")
    g_strLinkPsd = GetSetting(appname:=APP_NAME, section:="Server", _
                    Key:="LinkPsd", Default:="")
    g_strDBName = GetSetting(appname:=APP_NAME, section:="Server", _
                  Key:="DBName", Default:="mlfc")
    
End Sub
'该路径名字最后为"\"
Public Sub InitPath()
    If Right(App.Path, 1) = "\" Then
        g_strAppPath = "\"
    Else
        g_strAppPath = App.Path & "\"
    End If
    g_strDataPath = g_strAppPath & DATA_PATH
    g_strCfgPath = g_strAppPath & CFG_PATH
End Sub'完成系统的初始化工作
Public Sub main()    
    '初始化系统路径
    Call InitPath
    
    '初始化全局变量
    Call InitVar    Set conServer = New ADODB.Connection
    Dim strConServer As String
    strConServer = "Provider=SQLOLEDB.1;Persist Security Info=True" & _
                   ";User ID=" & g_strLinkName & _
                   ";Password=" & g_strLinkPsd & _
                   ";Initial Catalog=" & g_strDBName & _
                   ";Data Source=" & g_strServerName
    conServer.ConnectionString = strConServer
    conServer.CommandTimeout = KEY_TIMEOUT
    On Error Resume Next
        conServer.Open
        If Not conServer.State = adStateOpen Then
            MsgBox MSG_LINKERR, vbExclamation, APP_NAME
        Else
            frmLog.Show
        End If
    If Err.Number <> 0 Then
        Err.Clear
    End If
End SubPrivate Sub Form_Activate()
    cboUser.Clear
    Dim rstListUser As ADODB.Recordset
    Set rstListUser = New ADODB.Recordset
    rstListUser.CursorLocation = adUseClient
    On Error Resume Next
    rstListUser.Open "SysUser", conServer, adOpenDynamic, adLockOptimistic, cmdtable
    If rstListUser.RecordCount = 0 Then
        MsgBox MSG_NOUSER, vbInformation, APP_NAME
    Else
        rstListUser.MoveFirst
        While Not rstListUser.EOF
            cboUser.AddItem rstListUser.Fields("name").Value
            rstListUser.MoveNext
        Wend
        cboUser.ListIndex = 0
    End If
    
    rstListUser.Close
    Set rstListUser = Nothing
    
    Err.Clear
End Sub
.........
其他的我就不写了,这些你应该可以看明白了吧?