LoadFromFile в ADO

← →
Vmdeep2 (2003-08-01 02:16) [0]

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

← →
Dok_3D (2003-08-01 07:04) [1]

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

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

← →
NAlexey (2003-08-01 08:53) [2]

>Dok_3D
Маладец!

← →
vmdeep (2003-08-01 12:28) [3]

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;
Первая процедура работает отлично а вторая ничего не делает
тоесть обратно данные не засовывает хотя по хелпу в Делфи она это делать обязяна!!!

← →
Dok_3D (2003-08-01 15:16) [4]

2 vmdeep

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

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

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

← →
vmdeep (2003-08-02 00:13) [5]

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

← →
sniknik (2003-08-02 15:42) [6]

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

← →
vmdeep (2003-08-03 00:51) [7]

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

← →
sniknik (2003-08-03 09:28) [8]

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

LoadFromFile в ADO Найти похожие ветки