在VB中如何通过ADO控件动态的获取Access数据库的相对路径！ 10
PrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.Recordsetcn.Provi...
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "e:\11.mdb"
cn.Open
Set rs = cn.Execute("select * from pass where 姓名=ltrim(" & Text1 & ")")
If rs.EOF Then
MsgBox "您输入的信息有误！"
Else
MsgBox "恭喜你！"
End If
cn.Close
End Sub
在上述代码中：数据库的路径是指定的绝对路径，我现在要想把它变成相对的怎么办？ 展开
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "e:\11.mdb"
cn.Open
Set rs = cn.Execute("select * from pass where 姓名=ltrim(" & Text1 & ")")
If rs.EOF Then
MsgBox "您输入的信息有误！"
Else
MsgBox "恭喜你！"
End If
cn.Close
End Sub
在上述代码中：数据库的路径是指定的绝对路径，我现在要想把它变成相对的怎么办？ 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
