ADO访问Access数据库路径问题解决方案
ADO 访问 Access 数据库路径
问题解决方案
余惟嘉
:华中师范大学 计算机科学系,湖北 武汉 430079:
摘 要:通过 ADO 访问 Access 数据库是目前普遍采用的技术,但程序从原有位置复制到其它位置时存在路径问题。以 APP 对象应用为基础,提出 ADO 访问 Access 数据库路径问题的解决方案,并给出实例。
关键词:Visual Basic Access;ADO;路径
中图分类号:TP312 文献标识码:A 文章编号:1672-7800(2006)09-0056-02
例的句柄。属性:返回或设置应用程序的 ()7Title 1 关键技术-App 对象的应用 ()属性:返回或设置当前路径。 标题，并显示在的任务列 3Path Microsoft Windows 访问的 对象是通过关键字 App App 在设计时是不可用的。
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
中。
全局对象。它指定如下信息:应用程序的 ()属性:返回一个值，该 ()属性:返回或设置 4PrevInstance 8CompanyName 标题、版本信息、可执行文件和帮助文件 值指示是否已经有前一个应用程序实例 一个字符串，该字符串包括运行中的应用
在运行。的路径及名称以及是否运行前一个应用 程序的公司或创建者的名称。该属性在 ()属性:返回或设置一 5ProductName 程序的示例。以下是几个重要属性:运行时是只读的。()属性:返回当前正运行 1EXEName 个字符串，该字符串包括运行中的应用程
的可执行文件的根名(不带扩展名)。如 序的产品名称。 2 解决思路 果是在开发环境下运行，则返回该
工程
路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理
名。()属性:返回或设置该工程 6Revision ()属性:返回应用程序实 2HInstance 的修订版本号。该属性在运行时是只读的。使用 控件，在设置 数据空 ADO ADO
[ 属性时，在 ConnectionString Connecti- 间
表进行比对，如果存在该用户名和密码则
com.mysql.jdbc.Driver 参考文献:
5 结语 [] 1田珂,谢世波,方马. J2EE 数据持久层的解org.hibernate.dialect. MySQLDialect 93-95. 架构的运行原理，并详细探讨了Jsf Hiber- true 架构有机集成起来。[]勇.深入浅出HibernateM. 现在 在技术上还不是很成熟 ，它 Jsf 北京:电子工业出版社,2005. 还有很多缺点，例如在数据验证上扩展性 [][]4刘洋.精通 HibernateM. 北京:电子工业出 到此整个登录模块设计完成。该登 不够高，组件 命名怪异，不利于 ID Java- 版社,2005. 和 架构，实现了 Jsf Hibernate 录模块结合访问等等。但现在 提供了 Script J2EE5.0 []5戴浩.利用 JavaServer Faces 技术开发 Web 带来了新的发展机会， 的实现，这给对用户登录的动态认证，即从页面获取用 Jsf Jsf []应用程序J.微型机与应用,2004:,12:. 户输入的用户名和密码，通过 的数据 经过不断的发展，以后会更成熟，性能Jsf Jsf :责任编辑:王 钊: 映射数据库中的用户Hibernate 绑定，与
][]()()属性页连接选项卡中选择或输 员工编号 检查是否 onStringText10.Text=rs.Fields""If rs.BOF Then rs.MoveFirst '入数据库名，然后将数据库的路径去掉， 到记录头 ()() 员工姓名Text11.Text=rs.Fields"" 只保留数据库名，即可实现自动识别 Ac- Case 2 () 性别Combo1.Text=rs.Fields""数据库路径。cess () Rs.MoveNext 出生日期DTP1.Value=rs.Fields""
检查是否 If rs.EOF Then rs.MoveLast '()() 文化程度Text12.Text=rs.Fields""3 实例应用 到记录尾 ()() 身份证号Text13.Text=rs.Fields"" Case 3 [()新建一个
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
工程，默认名为工 1End Sub ]程 。在该工程中会自动创建一个窗体， 1Rs.MoveLast ()Private Sub Form_Load []默认名为。Form1 End Select 建立数据源的连接' [][]()单击工程菜单下的部件选项， 2调用函数Call ViewData ' strCnn="Provider=Microsoft. Jet. OLE- [在弹出的列表中选中Microsoft Windows End Sub DB. 4.0; Data Source="&App. Path&"\yggl. ()] Common Controls-26.0sp4选项，然后单mdb;Persist Security Info=False" ()[] 允许添 击确定按扭，控件被添加到工 Private Sub CmdEdit_Click'DTPicker 创Set cnn= New ADODB.Connection ' 加数据 具箱中。 建连接 [] ()在窗体中放置 个 3Form11 Text1 For i=0 To 3 打开连接cnn.Open strCnn ' 控件数组()、个 控件、个 0-31 DTPicker 1 ()Text1i.Enable=True 控件和 个 控件 Combo 1 CommandButton ()Text1i.Text="" 员工信息表 查 SQL="select * from "数组()。主要控件 'CmdMove0-CmdMove3
询语句 对象的属性如表 所示。1 Next i
执行查询语句Cnn.Execute SQL ' ()Text10.SetFocus Set rs=New ADODB.Recordset End Sub
表 1 主要控件对象的属性列表()Private Sub Timer1_Timer rs.Open SQL,cnn,adOpenDynamic,ad- 今天 是Label8.Caption=":" 对 象属 性值功 能返回查询结果LockBatchOptimistic ' 数据浏览Text1 Index 0--3 End Sub rs.MoveFirst 记录移动名称 Index CmdMove0--3 Command1 () Private Sub CmdEnd_Click调用函数 Call ViewData '命 令 设 名称DTPicker DTP1 置日期End () 男Combo1.AddItem"" Timer1 Interval 100 计数器 End Sub () 女Combo1.AddItem""()添加如下程序代码: 4
End Sub 定义字符 Dim strCnn,SQL As String ' 参考文献:串变量 (Private Sub CmdMove_ClickIndex As
定 Dim rs As New ADODB.Recordset ' []) 1高春艳.Visual Basic 数据库开发关键技术Integer []义字段 与实例应用 M. 北京:人民邮电出版社, Select Case Index 定义 Dim cnn As ADODB.Connection '2004. Case 0 []数据连接 2东箭工作室.Visual Basic5.0 中文版程序设 Rs.MoveFirst []计M.北京:清华大学出版社,1997. 定义一个整型变量Dim i As Integer ' []3Evangelos Petroutsos. Visual Basic5 从入门 ()Case 1 定义赋值函数Private Sub ViewData' []到精通M.北京:电子工业出版社,1997 Rs.MovePrevious
. :责任编辑:刘双琴:Intelligent Identification of the Path of Database by ADO in VB
Yu Weijia
()Department of Computer Science, Huazhong Normal University, Wuhan 430079Abstract: ADO is the Microsoft's new technology.Solutions to the path problem of accessing Access Database by ADO are given and examples are provided in the article in the end . Key words: Visual Basic Access;database ;path
浙公网安备 33021202002483