VB6传递参数As Database to function - type mismatch

Question

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

Dim oDB As Database .. oDB = OpenDatabase（databaseName $）

SampleFunction（oDB）'此处错误类型不匹配

...

Function SampleFunction（ByRef oDB As Database）

'oDB.TableDefs（“tableName”）

结束功能

如何正确传递此参数？

由于

Answer 1

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

写下：

Call SampleFunction(oDB)

或：

SampleFunction oDB

或：

Dim x
x=SampleFunction(oDB)

顺便说一句：首先访问www.vb6.us或visualbasic.freetutes.com

这样的网站会让您感觉更好

Answer 2

有一件事可能是您需要使用设置

Set oDB = OpenDatabase(databaseName$)