请教啊!以下程序在vb封装时,运行正常。但是用的是绝对路径,我应该怎么改成相对路径?
程序如下: Dim Coon As Connection
Dim Rs As Recordset
Set Conn = New Connection
With Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\aaa\bbb.mdb"
.Open
End WithSet Rs = New Recordset
sql = "Select top 4 * From NewsData where D_CataID='A00030004' and D_Picture<>'' ORDER BY D_id desc"
Rs.Open sql, Conn, 1, 1
接下来是正确的asp语句了
程序如下: Dim Coon As Connection
Dim Rs As Recordset
Set Conn = New Connection
With Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\aaa\bbb.mdb"
.Open
End WithSet Rs = New Recordset
sql = "Select top 4 * From NewsData where D_CataID='A00030004' and D_Picture<>'' ORDER BY D_id desc"
Rs.Open sql, Conn, 1, 1
接下来是正确的asp语句了
解决方案 »
- 在数据库添加图片,用addnew无用.求指导
- 求助 如何 在textbox 用鼠标选黑某段字符后 自动会复制到另外一个textbos中去
- 关闭连接数据库后..datagrid控件里不不显示呀..
- vb创建读写文件!!
- 200高分寻利用richtextbox控件制作类word的源程序
- 如何在VB中屏蔽WebBrowser的右键菜单??请教! 在线等待!!!!!!急!!!!
- 急!菜鸟问题:如何动态增加多个控件
- 水晶報表 沒有記錄時,用什么方法可以不顯示報表窗體
- SOS,如何把数字转成二进制数???
- 如何调用vb的资源文件
- update 操作两个表的更新语句如何写才能正确执行
- 能帮我写一段代码吗?我刚学VB,希望对我有帮助
With Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bbb.mdb"
.Open
End With
============封装的dll里一样可以这样用
App.Path & "\aaa.mdb"
Public gDBConn As ADODB.ConnectionPublic Sub SetAdo( inConnection As ADODB.Connection)
Set gDBConn = inConnection
end sub
这样不就可以了吗?然后调用dll的时候可以把连接传进去
"Data Source=" & Trim$(FileName) & ";" & _
"Jet OLEDB:Database Password=;" & _
"Jet OLEDB:Engine Type=5;"if database path is in application folder then:
FileName=app.path & IIf(Right$(app.path, 1) <> "\", "\", vbNullString) & "bbb.mdb"otherwise:FileName="c:\aaa\bbb.mdb"
VBAdvisor,以及上面的同志
Dll里面好像不存在App这个对象的。应该是要加上一个Server的对象,才可以。
具体代码大家如果需要,可以向 ab9(落寞的微笑) 索求。