ошибка: Недопустимое число аргументов или присвоение значения свойства: 'rs'

@Beee · Регистрация: 25.03.2009

Author24 — интернет-сервис помощи студентам

Я делаю следующим образом:
в отдельном файле есть функции подключения к бд...

HTML5

1	<!--#include virtual='/forum/util.asp' -->

Вызов функции

Visual Basic

1	Call Connect()

В результате, там, где я устанавливаю rs возникает ошибка:

Недопустимое число аргументов или присвоение значения свойства: 'rs'

Visual Basic

Function Connect()
    aConnectionString = "строка подключения"
    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    conn.ConnectionString = aConnectionString
    conn.CursorLocation = adUseClient
    conn.open
End Function

PS Без функции все работает....

@snusmu · 21.07.2009, 21:47

A zachem vse eto voobshe pisat' v funkziyu? prosto pishi otkrytie konnekta v include i vse! Nu i voobshe, navernoe, v takom sluchae ne Function, a Sub nuzhna!

22.07.2009, 00:36

Dim Global rs
что-то подобное нужно написать...
еще... функция насколько помню должа обязательно что-то возвращать...
т.е. объявление нужно писать что возвращает... вроде...

@snusmu 0 / 0 / 0 Регистрация: 24.12.2008 Сообщений: 3
	21.07.2009, 21:47	2
	A zachem vse eto voobshe pisat' v funkziyu? prosto pishi otkrytie konnekta v include i vse! Nu i voobshe, navernoe, v takom sluchae ne Function, a Sub nuzhna! 0

Axel
	22.07.2009, 00:36	3
	Dim Global rs что-то подобное нужно написать... еще... функция насколько помню должа обязательно что-то возвращать... т.е. объявление нужно писать что возвращает... вроде...