Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Out of memory / 15 сообщений из 15, страница 1 из 1
13.01.2014, 10:06
    #38523900
XDiaBLo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
Out of memory возникает при получении данных запросом из базы, и сохранении в файл.
Сначала:
Set txt = fso.CreateTextFile(file_name )
Потом в цикле:
txt.WriteLine row
Потом:
txt.close

Может можно данные в файл сохранять промежуточные? Почему-то при сохранении 300 мегабайт данных в файл, сжирает пару гигов оперативы. Скорее всего и объект в котором общение с базой происходит, тоже память сжирает. Но всё равно что-то дофига.
...
Рейтинг: 0 / 0
13.01.2014, 10:34
    #38523931
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
CreateTextFile не позволяет указать режим доступа к файлу. Попробуй его создать, а потом открыть с флагом WriteOnly.
Ещё такой фортель может выкинуть антивирус... попробуй отключить проверку (по приложению или целевому каталогу, например).
...
Рейтинг: 0 / 0
13.01.2014, 10:47
    #38523943
XDiaBLo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
AkinaCreateTextFile не позволяет указать режим доступа к файлу. Попробуй его создать, а потом открыть с флагом WriteOnly.
Ещё такой фортель может выкинуть антивирус... попробуй отключить проверку (по приложению или целевому каталогу, например).
Первое после обеда попробую, а второе (антивирус), не вариант, нужно решение, доступное на ежедневной основе, в штатном режиме.
...
Рейтинг: 0 / 0
13.01.2014, 11:02
    #38523956
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
XDiaBLoнужно решение, доступное на ежедневной основе, в штатном режиме.
Чтобы искать решение, нужно знать причину. Пока что она неизвестна.
Чтобы найти причину, надо проверить ВСЕ варианты. И никаких "априори" и "низзя".
...
Рейтинг: 0 / 0
13.01.2014, 11:03
    #38523957
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
Кстати, а в какой именно среде программирования всё это? VB6? VBS? Прочее? Оно, конечно, влиять формально не должно, но от знания хуже не станет.
...
Рейтинг: 0 / 0
13.01.2014, 12:01
    #38524074
XDiaBLo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
AkinaКстати, а в какой именно среде программирования всё это? VB6? VBS? Прочее? Оно, конечно, влиять формально не должно, но от знания хуже не станет.
WSH+VBScript.
...
Рейтинг: 0 / 0
13.01.2014, 12:47
    #38524168
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
Вот счас закатил в тестовых целях
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim fso, MyFile, RandomStr, i, j
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("b:\temp\testfile.txt", True)
for i = 1 to 1024*300
    RandomStr = ""
    for j = 1 to 1024
        RandomStr = RandomStr & chr(asc("a") + 26*rnd)
    next
    MyFile.WriteLine(RandomStr)
next
MyFile.Close


Нормально отхрюкало (см. скрин), без закидонов...
Не в ЭТОМ коде, вероятно, проблемка.
...
Рейтинг: 0 / 0
13.01.2014, 12:58
    #38524200
XDiaBLo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
Akina,

Слушай, глянул ща внимательно, проблема вот как выглядит, и это считывание данных из БД, но куда отожралась память, всё ещё актуально. А я не представляю как это выяснить, могу только предположить, что дело в самом объекте, на котором всё и отваливается.
...
Рейтинг: 0 / 0
13.01.2014, 13:08
    #38524217
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
Для осмысленного ответа недостаточно данных.

Комментируй код по кускам, убирай заведомо живое, локализуй проблему. Больше посоветовать пока нечего.
...
Рейтинг: 0 / 0
13.01.2014, 14:01
    #38524322
XDiaBLo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
Гхм, интересно, почему Microsoft Cursor Engine, если у меня Оракл? Но это совсем не в эту ветку вопрос...
...
Рейтинг: 0 / 0
13.01.2014, 14:55
    #38524415
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
XDiaBLoГхм, интересно, почему Microsoft Cursor Engine, если у меня Оракл? Но это совсем не в эту ветку вопрос...
Да потому что у тебя ADO падает, а не скрипт.
...
Рейтинг: 0 / 0
13.01.2014, 15:03
    #38524440
XDiaBLo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
AkinaXDiaBLoГхм, интересно, почему Microsoft Cursor Engine, если у меня Оракл? Но это совсем не в эту ветку вопрос...
Да потому что у тебя ADO падает, а не скрипт.
Понаделали прослоек, не поймёшь по какому маршруту диалог с СУБД происходит... Напишу ка я лучше в ветку "Oracle".
...
Рейтинг: 0 / 0
24.02.2014, 17:40
    #38570753
GGamerr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
XDiaBLo,

не забывай в конце

set fso=Nothing
set myfile=Nothing


мне помогало...
...
Рейтинг: 0 / 0
24.02.2014, 17:46
    #38570762
XDiaBLo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
GGamerrXDiaBLo,

не забывай в конце

set fso=Nothing
set myfile=Nothing


мне помогало...
Это ясно. Но в конце. А вылетало то ещё до конца :)
...
Рейтинг: 0 / 0
24.02.2014, 18:04
    #38570780
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Out of memory
AkinaXDiaBLoГхм, интересно, почему Microsoft Cursor Engine, если у меня Оракл? Но это совсем не в эту ветку вопрос...
Да потому что у тебя ADO падает, а не скрипт.+1, заметил такую фигню. rs("Field") может вызвать ошибку в недрах adodb.

XDiaBLo, если юзаешь такой подход, попробуй переделать на For Each по полям.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Out of memory / 15 сообщений из 15, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]