我想把连接的数据库改成相对地址

来源：百度知道 编辑：UC知道 时间：2024/05/25 10:59:50
Private Sub cmdYK_Click()
lst1.Clear
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Dim cn As adodb.Connection
Set cn = New adodb.Connection
cn.Open "provider=microsoft.jet.oledb.4.0; data source=D:\VB\销售软件\data\1.mdb"
Dim rs As adodb.Recordset
Dim sql As String
Dim c As String
Dim d As String
d = InputBox("请输入需要查询的遥控型号", "按遥控型号查询", "k1b")
c = "'" & d & "'"
sql = "select * from 遥控代换表 where 遥控型号=" & c
Set rs = New adodb.Recordset
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
If rs.EOF Then
MsgBox ("查无此型号,请认真核对型号再输入,注意中间的-号")
GoTo star:
End If
Label2.Caption = rs("电视品牌")
Label3.Caption = rs("遥控芯片")
Label4.Caption = rs("红外系统码")
c = "'" & Label3.Caption & "'"

Dim bn As adodb.Connection
Set bn = New adodb.Connection
Dim bs As adodb.Recordset
Set bs = New adodb.Recordset
这种语句两行写成一行就可以
Dim bn As new adodb.Connection
Dim bs As new adodb.Recordset
连接字符串是相同可以只定义一个全局变量，不用到过程里面定义
连接字符串是可以改相对地址的，比如放到程序根目录可以用app.path
也可以用变量代替固定路径，但是要注意变量在字符串中的写法
dim a ,b as string
a="tablename"
b ="select * from " & a

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"

相对路径下VB的工程在哪,数据库放哪.

bn.Open "provider=microsoft.jet.oledb.4.0; data source='"+app.path+"\销售软件\data\1.mdb'"

bn.Open "provider=microsoft.jet.oledb.4.0; data source=app.path & "\销售软件\data\1.mdb"&q