VPF::runtime error 3709 - Форум программистов

CMYK

Дата 18.4.2009, 04:33 (ссылка)

(голосов:2)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 22.11.2008
Где: ЮГ

Репутация: нет
Всего: нет

Akina я занаю вы мне поможете в очередной раз! Такая беда, vb6 выдаёт ошибку "runtime error 3709" я тут в коде поставил звезду где выделяется строка при ошибке, вне класса процедура SRSET работает нормально. Как жить после этого?! smile

вот код формы

Код


Dim massB() As String
Dim myVar As MY_CLS
Set myVar = New MY_CLS
myVar.PATH_BASE = "E:\access2000.mdb"
myVar.SQL_QUERY = "SELECT таблица.* FROM таблица;"
myVar.SRSET massB()
Text1.Text = massB(0,1)

код модуля класса

Код


Private MY_CONN As ADODB.Connection
Private MY_RSET As ADODB.Recordset
Private Var_PATH_BASE As String
Private Var_QUERY As String

Public Property Get PATH_BASE() As String
PATH_BASE = Var_PATH_BASE
End Property

Public Property Let PATH_BASE(ByVal sNewValue As String)
Var_PATH_BASE = sNewValue
End Property

Public Property Get SQL_QUERY() As String
SQL_QUERY = Var_QUERY
End Property

Public Property Let SQL_QUERY(ByVal NewValue As String)
Var_QUERY = NewValue
End Property



Public Sub SRSET(MASS() As String)
Set MY_CONN = New ADODB.Connection
MY_CONN.CursorLocation = adUseClient
MY_CONN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Var_PATH_BASE & ";Persist Security Info=False;" & Var_PATH_BASE

 

Dim v
Dim i As Long
Dim n As Long

Set MY_RSET = New ADODB.Recordset
*MY_RSET.Open Var_QUERY & ", MY_CONN, adOpenForwardOnly, adLockReadOnly, adCmdText"


   v = MY_RSET.GetRows
   n = UBound(v, 2)
   ReDim MASS(n)
   For i = 0 To n
   MASS(i) = v(0, i)

   Next
'MY_RSET.Close
End Sub

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »