Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

LoadFromFile в ADO

Vmdeep2 © (2003-08-01 02:16:00)

Вот сохранил я инфу из базы а загрузить обратно не могу LoadFromFile не работает! Почему так происходит?

sniknik (2003-08-03 09:28:00) [1]

vmdeep (03.08.03 00:51)
> а каким оброзом он мог стать с серверным курсором
я же говорю предположение, раз не нее описал полные исходные то могу предполагать что угодно. ты говориш что не работеает элементарное действие... что можно сказать? у меня работает, у других судя по всему тоже, значит дело в тебе, чегото у тебя не так.
> хотел бы взглянуть хоть на одну прогу которая этот Load выполняет!
не проблема, пример в 7-х дельфях лежит
Х:\Program Files\Borland\Delphi7\Demos\DbClx\fishfact

vmdeep (2003-08-03 00:51:00) [2]

sniknik Хм.... а каким оброзом он мог стать с серверным курсором
я вроде по дефолту оставил пользовательский! И вообще может у кого есть предположение не глюк ли это ADO ? А вообще хотел бы взглянуть хоть на одну прогу которая этот Load выполняет!

sniknik (2003-08-02 15:42:00) [3]

vmdeep (02.08.03 00:13)
> Но load вообще как будто нифига не делает!
делает. еще возможность (предположение) в дополнение к фильтрам (Dok_3D © (01.08.03 15:16)),
возможно ты пытаешся загрузить рекордсет в серверный курсор, тут он наверняка проигнорирует (пробовать и сказать точно неохота).

vmdeep (2003-08-02 00:13:00) [4]

Dok_3D спасибо конечно за совет вот только в том и дело я уверен
что Save работает так как pfXML сохранял и лично все проверял!!
Но load вообще как будто нифига не делает!

Dok_3D (2003-08-01 15:16:00) [5]

2 vmdeep

Вот, вижу прогресс.
Насколько я понимаю, ADODataSet2.LoadFromFile("c:\SaveFile") не выдает никаких исключений.

Откуда известно, что в датасете перед его сохранением была хотя бы одно запись? Поясню, записи может быть и были, но если была применена фильтрация, которая свела количество записей в ноль, то SaveToFile сохранит пустой датасет.
Если ты уверен, что датасет не пустой, то сделай перед сохранением ADODataSet2.Filtered := False;

Сохрани как SaveToFile("c:\SaveFile.xml", pfXML) и посмотри, есть хотя бы одна запись.

vmdeep (2003-08-01 12:28:00) [6]
Dok_3D хе-хе-хе! Если не понимаете вопроса то не х.... язвить!
Да и отвечать вообще не стоит!
Теперь немного конкретнее вопрос! Вот код:
procedure TForm1.SaveBtnClick(Sender: TObject);
begin
if (FileExists("c:\SaveFile")) then
begin
DeleteFile("c:\SaveFile");
StatusBar1.Panels[0].Text := "Save file deleted!";
end;
ADODataSet1.SaveToFile("c:\SaveFile", pfADTG);
end;

procedure TForm1.LoadBtnClick(Sender: TObject);
begin
if (FileExists("c:\SaveFile")) then
( "c:\SaveFile")
Dok_3D хе-хе-хе! Если не понимаете вопроса то не х.... язвить!
Да и отвечать вообще не стоит!
Теперь немного конкретнее вопрос! Вот код:
procedure TForm1.SaveBtnClick(Sender: TObject);
begin
if (FileExists("c:\SaveFile")) then
begin
DeleteFile("c:\SaveFile");
StatusBar1.Panels[0].Text := "Save file deleted!";
end;
ADODataSet1.SaveToFile("c:\SaveFile", pfADTG);
end;

procedure TForm1.LoadBtnClick(Sender: TObject);
begin
if (FileExists("c:\SaveFile")) then
ADODataSet2.LoadFromFile("c:\SaveFile")
else
StatusBar1.Panels[0].Text := "Save file does not exist!";

end;
Первая процедура работает отлично а вторая ничего не делает
тоесть обратно данные не засовывает хотя по хелпу в Делфи она это делать обязяна!!!

NAlexey (2003-08-01 08:53:00) [7]

>Dok_3D
Маладец!

Dok_3D (2003-08-01 07:04:00) [8]

Думаю, дело в центральном процессоре.
Этот баг замечен при использовании процессоров фирм AMD и Intel.
Если у тебя такой процессор, то дело точно в этом.

Скачай и установи обновление с официальных сайтов.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »