VB 6 передать аргумент в качестве базы данных, чтобы функционировать - типа mismtach

Question

Я пытаюсь передать аргумент в функцию (Visual Basic 6)

Dim oDB As Database .. oDB = OpenDatabase (databaseName $)

SampleFunction (oDB) 'здесь несоответствие типов ошибок

..

Функция SampleFunction (ByRef oDB As Database)

'oDB.TableDefs ("tableName")

End Function

Как правильно передать этот аргумент?

Спасибо

Answer 1

Проблема не в базе данных, а в вызове функции SampleFunction:

Либо напишите:

Call SampleFunction(oDB)

или

SampleFunction oDB

или

Dim x
x=SampleFunction(oDB)

Кстати: вам гораздо лучше, если вы сначала зайдете на такие сайты, как www.vb6.us или visualbasic.freetutes.com

Answer 2

Одна вещь может быть, что вам нужно использовать Set

Set oDB = OpenDatabase(databaseName$)