如何设置对VB数据库连接的动态路径

2016-02-19 12:29 9 1 收藏

生活已是百般艰难,为何不努力一点。下面图老师就给大家分享如何设置对VB数据库连接的动态路径，希望可以让热爱学习的朋友们体会到设计的小小的乐趣。

【 tulaoshi.com - 编程语言】

我个人因为经常作一些数据库方面的程序，对于程序间如何与数据库进行接口的问题之烦是深有体会，因为VB在数据库链接的时候，一般是静态，即数据库存放的路径是固定的，如用VB的DATA，adodc,DataEnvironment等到作数据库链接时，如果存放数据库的路径被改变的话，就会找不到路经，真是一个特别烦的事。
　　笔者的解决方法是利用app.path来解决这个问题。

一、用data控件进行数据库链接，可以这样：
　　在form_load()过程中放入：
　　privateform_load()
　　DimstrAsString'定义
　　str=App.Path
　　IfRight(str,1)""Then
　　str=str ""
　　EndIf
　　data1.databasename=str&"数据库名"
　　data1.recordsource="数据表名"
　　data1.refresh
　　subend
　　这几句话的意为，打开当前程序运行的目录下的数据库。
　　你只要保证你的数据库在你程序所在的目录之下就行了。

二、利用adodc（ADODataControl)进行数据库链接：
　　privateform_load()
　　DimstrAsString'定义
　　str=App.Path
　　IfRight(str,1)""Then
　　str=str ""
　　EndIf
　　str="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="&str&"sl.mdb"
　　Adodc1.ConnectionString=str
　　Adodc1.CommandType=adCmdText
　　Adodc1.RecordSource="select*fromtable3"
　　Adodc1.Refresh
　　endsub

三、利用DataEnvironment进行数据库链接
　　可在过程中放入：
　　OnErrorResumeNext
　　IfDataEnvironment1.rsCommand1.StateadStateClosedThen
　　DataEnvironment1.rsCommand1.Close'如果打开，则关闭
　　EndIf
　　'i=InputBox("请输入友人编号:","输入")
　　'Ifi=""ThenExitSub
　　DataEnvironment1.Connection1.OpenApp.Path&"userdatabasesl.mdb"
　　DataEnvironment1.rsCommand1.Open"select*fromtable3where编号='"&i&"'"
　　'SetDataReport2.DataSource=DataEnvironment1
　　'DataReport2.DataMember="command1"
　　'DataReport2.show
　　endsub

四、利用ADO(ActiveXDataObjects)进行编程：
　　建立连接：
　　dimconnasnewadodb.connection
　　dimrsasnewadodb.recordset
　　dimstr
　　str=App.Path
　　IfRight(str,1)""Then
　　str=str ""
　　EndIf
　　str="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="&str&"sl.mdb"
　　conn.openstr
　　rs.cursorlocation=aduseclient
　　rs.open"数据表名",conn,adopenkeyset.adlockpessimistic
　　用完之后关闭数据库：
　　conn.close
　　setconn=nothing

以上代码在VB6，win98上运行通过，如有问题请发邮件给我：
　　作者：张振兴
　　E_mail:xingyun0615@sina.com

来源:http://www.tulaoshi.com/n/20160219/1601007.html

上一篇： VB5中远程数据库的访问
下一篇：远程图片自动按文件夹上传到服务器-默飞出品

看过《如何设置对VB数据库连接的动态路径》的人还看了以下文章更多>>

VB与大型数据库无数据源的连接

标签：编程语言网络编程

目前，绝大多数的数据库参考书都介绍了ODBC的手工配置方法，或者介绍了如何在代码中进行ODBC配置。但这两种方法都有一定的局限性:不是当程序最终完成并分发到用户手中后，还需要为用户配置ODBC，显得既麻烦又不符合专业软件的要求；就是得编写复杂的更改操作系统注册表文件的程序，十分烦琐。本文从ADO（ActiveXDataObjects）入手，介绍无需配置...

数据库连接范例

标签： SQLServer

OLE DB Method for SQL <% set cnn = server.createobject("ADODB.Connection") cnn.open "PROVIDER=SQLOLEDB;DATA SOURCE=sqlservername;UID=username;PWD=password;DATABASE=databasename " % DSN Less connection for Access <% set cnn = server.createobject("ADODB.Connection") cnn.open &...

php数据库连接

标签： PHP

通过PHP你可以轻松的连接到数据库，请求数据并将其显示在你的web站点中，甚至修改数据库中的数据。MySQL是一种很流行的数据库，并且在互联网中有许多有关PHP与MySQL的教程。MySQL是免费的，这一点也许就吸引了不少人。由于其广泛应用，我就不想在这里赘述MySQL的使用方法了。Oracle被大量在企业应用中采用，因此我们就利用Oracle来介绍P...

与数据库连接

标签： PHP

4.据库连接通过PHP你可以轻松的连接到数据库，请求数据并将其显示在你的web站点中，甚至修改数据库中的数据。MySQL是一种很流行的数据库，并且在互联网中有许多有关PHP与MySQL的教程。MySQL是免费的，这一点也许就吸引了不少人。由于其广泛应用，我就不想在这里赘述MySQL的使用方法了。Oracle被大量在企业应用中采用，因此我们就利用O...

Delphi数据库的动态建立

标签：编程语言网络编程

delphi 最吸引人的特点之一就是它的强大的数据库访问能力，通过database desktop 工具可方便的建立、编辑数据库。由于实际原因我们往往需要在程序运行状态下动态建立某个数据库。如果你让用户用database desktop 工具手工建立数据表那么你写的程序将会打大折扣，不过你不用担心delphi完全可以用语言来完成此功能，为我们提供方便。我...

查看更多精彩>>