VB6将参数作为数据库传递给函数-类型不匹配

【问题标题】：VB 6 pass argument As Database to function - type mismtachVB6将参数作为数据库传递给函数-类型不匹配
【发布时间】：2011-01-10 14:55:12
【问题描述】：

我尝试将参数传递给函数（Visual Basic 6）

将 odB 作为数据库 .. oDB = OpenDatabase(databaseName$)

SampleFunction(oDB) '这里错误类型不匹配

Function SampleFunction(ByRef oDB As Database)

' oDB.TableDefs("tableName")

结束函数

如何正确传递这个参数？

谢谢

【问题讨论】：

标签： vb6

【解决方案1】：

问题不在于数据库，而在于对 SampleFunction 的调用：

要么写：

Call SampleFunction(oDB)

或：

SampleFunction oDB

或：

Dim x
x=SampleFunction(oDB)

顺便说一句：你最好先访问www.vb6.us或visualbasic.freetutes.com这样的网站

【讨论】：

【解决方案2】：

一件事可能是您需要使用 Set

Set oDB = OpenDatabase(databaseName$)

【讨论】：