VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 4320|回复: 2

[求助] 看下这段代码

[复制链接]
 楼主| 发表于 2010-12-13 23:23:02 | 显示全部楼层 |阅读模式
Public Sub conn(tableName As String)
    Dim db As Connection
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\db1.mdb;"
    Set rs = New Recordset
    adoPrimaryRS.Open "select * from " & CStr(tableName), db, adOpenStatic, adLockOptimistic
End Sub

放在模块里面
在别的窗体里调用的时候例如 call conn(tablename) 参数tablename是db1数据库中的表名称  调用显示错误 传址 错误 指点下是 为什么

这段代码是把链接数据库的代码放到模块里调用 并将数据库的表明作为参数  以方便打开指定的表
发表于 2010-12-24 16:40:59 | 显示全部楼层
按址传递还是按值传递?default值是byref噢。如果按值传递的话,需要加:byval
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-1-3 12:52:36 | 显示全部楼层
这个问题解决了应该是byval 传递 ,否则报错
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2023-2-6 07:57

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表