VB 使用ADO控件链接数据库，链接时怎么指定数据库的相对路径
作者&投稿：威影 （若有异议请与网页底部的电邮联系）
使用相对路径App.path方法，App表示应用程序所在路径，后面跟的是数据库文件所在的文件夹名或直接和应用程序在一个文件（在一个文件夹就如按下即可），如下ToolBoardMage.mdb代表你的数据库名称，ToolBoardMage代表数据库表的名称Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ToolBoardMage.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from ToolBoardMage"
Set DataGrid1.DataSource = Adodc1
End Sub
1、相对路径就是指由这个文件所在的路径引起的跟其它文件（或文件夹）的路径关系。
2、在相对路径中(文件夹我按老习惯称目录)
\表示当前盘的根目录
..\表示当前目录的上一层目录，上上层可以用..\..\等。
当前目录下的data目录可以用data\表示
当前目录下的data目录下的data1目录，可以用data\data1\表示等。
2、举例：
Data Source=\db1.mdb
Data Source=..\db1.mdb
Data Source=data\db1.mdb
Data Source=data\data1\db1.mdb
3、vb中可以App.Path来获得当前路径
1. 第1步：在VB编辑状态，选中ADO控件，在属性窗口设置它的ConnectionString属性。并可以进行测试连接，确定连接成功，就在属性窗口里获得了正确的连接字符串。
例如：我的一个连接本地数据库的例子如下：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\数据库系统\数据库.mdb;Persist Security Info=False
显然，这个是绝对路径，为了使得你的程序灵活使用，需要把其中路径修改为如下相对路径，并用语句进行连接，其实很好理解：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path & "\数据库系统\数据库.mdb;Persist Security Info=False"
我在做工程时，建立了文件夹“数据库系统”，然后将所有文件以及数据库文件都保存在该文件夹里，我的数据库文件为“数据库.mdb”。
1、app.path
=================
2、"dat\m1.mdb"
=================
APP.PATH +"xxx.mdb"
淫弯萨尔： 先引用ADO:工程--引用--选择MS ActiveX Data Objects 代码: Dim Access_Con As Connection Set Access_Con = New Connection Access_Con.ConnectionString = ＂Provider=Microsoft.jet.oledb.4.0;data source=＂ & App_Path & ＂\FHL数...
顺平县17565273957： 在VB中用ADO控件连接Access数据库 - ？
淫弯萨尔： 新建工程时选数据工程,此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件.然后在FORM1窗体中添加ADODC控件和DATAGRID控件,将DATAGRID1的属性DATASOURCE选ADODC1,打开ADODC1控件属性页使用连...
顺平县17565273957： vb中怎么用ADO控件连接远程数据库 啊？
淫弯萨尔： 右键ado-属性-通用-生成 提供连接access选择microsoft jet 4.0或者3.51 sql server 选择 microsoft ole db provider for sql server 下一步 选择你的数据库就可以了.
顺平县17565273957： 在VB中用ADO控件连接数据库 - ？
淫弯萨尔： 代码如下,应用程序须与数据库在同一目录夹内:frmWzDy.Adodc3.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂\cartemp.mdb;Persist Security Info=False＂ frmWzDy.Adodc3.RecordSource = ＂...
顺平县17565273957： 在VB 中如何用ADO连接数据库 - ？
淫弯萨尔： 网上很多教程 ADO是Microsoft提供的一个操作数据库的基础类,很方便,功能也很完善,连接数据库格式如下: Set Conn = New ADODB.Connection Conn.ConnectionString = ＂driver={SQL SERVER};server=Fac;uid=ppp;pwd=123;database=student＂ 可以连接到服务器名为Fac,用户名为ppp,密码为123 ,名为student的数据库
顺平县17565273957： vb如何连接当前目录下的数据库 - ？
淫弯萨尔： VB与数据库连接可以使用数据库控件进行,也可以引用ADO对象,数据库控件的使用比较简单,下面我就介绍使用ADO对象进行连接,首先打开＂工程-引用＂,选择其中的Microsoft ActiveX Data Objects 2.0 Library(2.0以上版本都可以): ...
顺平县17565273957： vb6.0中使用ADODB连接数据库 - ？
淫弯萨尔： 需要在“工程”->“引用”—> ADO控件(Microsoft ActiveX Data Objects x.x Library )
顺平县17565273957： vb 中如何用ado连接dbf数据库 - ？
淫弯萨尔： 最好用ado技术最简单得是添加adodc控件,设置adodc1.connectionstring连接dbf数据库.具体操作是,添加完adodc控件后,放到窗体中,看它得adodc属性选择生成你就可以选择连接得数据源了!
顺平县17565273957： vb中如何用ADO控件连接远程数据库,答案详细点 - ？
淫弯萨尔： 只能连接SQL,MYSQL,ORACLE等高级数据库.
顺平县17565273957： VB 怎么用ADO控件链接access数据库啊?？
淫弯萨尔： Public conn As ADODB.Connection Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂\*.mdb;Persist Security Info...
