首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb连接access用相对路径的有关问题?请您看看

2012-01-14 
vb连接access用相对路径的问题?请您看看。请教啊!以下程序在vb封装时,运行正常。但是用的是绝对路径,我应该

vb连接access用相对路径的问题?请您看看。
请教啊!以下程序在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   With

Set   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语句了

[解决办法]

Public gDBConn As ADODB.Connection

Public Sub SetAdo( inConnection As ADODB.Connection)
Set gDBConn = inConnection
end sub
这样不就可以了吗?然后调用dll的时候可以把连接传进去
[解决办法]
呵呵, 我来拿分了。
VBAdvisor,以及上面的同志
Dll里面好像不存在App这个对象的。

应该是要加上一个Server的对象,才可以。
具体代码大家如果需要,可以向 ab9(落寞的微笑) 索求。

热点排行