ник: Аноним
Хочу из AccessДБ перенести значения в Excelтаблицу
Set rst = New ADODB.Recordset
Set obj = GetObject("H:\excel_probe1.xls")
rst.Open "SELECT * FROM Inhalt", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
i = 1
j = 2
Do While Not rst.EOF
st = 0
Do While st <> 1
st = rst![PE_ID]
If st = 1 Then
obj.ActiveSheet.Cells(1, i).Value = rst![VIAs]
obj.ActiveSheet.Cells(j, i).Value = rst![Inhalt]
Else
obj.ActiveSheet.Cells(j, i).Value = rst![Inhalt]
End If
j = j + 1
rst.MoveNext
st = rst![PE_ID]
Loop
i = i + 1
j = 2
Loop
rst.Close
Set rst = Nothing
Получаю сообщение :
3021
Ether BOF or EOF is True, or the current record has been deleted.Requisted operation requires acurrend record.
Немогу понять где ошибка может кто знает в чeм проблема.