王耀x你:如何设置对VB数据库连接的动态路径
来源:百度文库 编辑:中财网 时间:2024/05/04 21:53:48
如何设置对VB数据库连接的动态路径
发布时间:2008-04-03 10:36:17 来源:编程爱好者网站 作者:编程爱好者网站 点击:404
我个人因为经常作一些数据库方面的程序,对于程序间如何与数据库进行接口的问题之烦是深有体会,因为VB在数据库链接的时候,一般是静态,即数据库存放的路径是固定的,如用VB的DATA,adodc,DataEnvironment 等到作数据库链接时,如果存放数据库的路径被改变的话,就会找不到路经,真是一个特别烦的事。笔者的解决方法是利用app.path 来解决这个问题。
一、用data控件进行数据库链接,可以这样:
在form_load()过程中放入:
private form_load()
Dim str As String 注释:定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
data1.databasename=str & "\数据库名"
data1.recordsource="数据表名"
data1.refresh
sub end
这几句话的意为,打开当前程序运行的目录下的数据库。
你只要保证你的数据库在你程序所在的目录之下就行了。
二、利用adodc(ADO Data Control)进行数据库链接:
private form_load ()
Dim str As String 注释:定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\tsl.mdb"
Adodc1.ConnectionString = str
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from table3"
Adodc1.Refresh
end sub
三、利用DataEnvironment进行数据库链接
可在过程中放入:
On Error Resume Next
If DataEnvironment1.rsCommand1.State <> adStateClosed Then
DataEnvironment1.rsCommand1.Close 注释:如果打开,则关闭
End If
注释:i = InputBox("请输入友人编号:", "输入")
注释:If i = "" Then Exit Sub
DataEnvironment1.Connection1.Open App.Path & "\userdatabase\tsl.mdb"
DataEnvironment1.rsCommand1.Open "select * from table3 where 编号=注释:" & i & "注释:"
注释:Set DataReport2.DataSource = DataEnvironment1
注释:DataReport2.DataMember = "command1"
注释:DataReport2.show
end sub
四、利用ADO(ActiveX Data Objects)进行编程:
建立连接:
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim str
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\tsl.mdb"
conn.open str
rs.cursorlocation=aduseclient
rs.open "数据表名",conn,adopenkeyset.adlockpessimistic
用完之后关闭数据库:
conn.close
set conn=nothing
VB的编程如何与数据库连接呢?
动态网页的数据库连接
VB如何与VF数据库连接
如何设置Guest帐户对物理路径的访问权限?
动态网站的数据库连接问题
vb.net的数据库连接代码
如何设置动态的字?
VB中如何动态调用VB编写的ActiveDLL文件
vb msgbox 对关闭窗口如何设置?
关于VB编程打开文件影响动态连接路径的问题
怎样写与ACCESS+VB的数据库连接
请教一个VB跟数据库连接的问题
如何设置WCGZone GamOn的游戏路径
如果VB中用ACCESS2000的,则应该如何去定义数据库连接字符串,特别是Provider应该是什么
如何来设置tomcat与access数据库连接
vb里面数据库路径设置问题
用vb编程如何确定使用注册表的路径位置
vb下如何获得某个路径下的所有文件
关于Adodc与数据库连接的相对路径问题
如何设置动态ip的变化频率?
如何设置动态站点
在vb中,MSFlex控件如何与数据库连接?
如何利用VB或ASP与ACCESS数据库连接制作选择题
QQ对战CS游戏设置的路径