|
Вопрос # 6 106/ вопрос решён / |
|
Здравствуйте, уважаемые Эксперты! Я использую базу данных Access через ADO. Подскажите пожалуйста, как через диалоги OpenDialog и SaveDialog сохранять данные из таблицы в файл, а потом в нужный момент загрузить в таблицу данные для просмотра. Хочу сделать через диалоги сохранение данных каждый месяц. Покажите пожалуйста на простом примере. Заранее Спасибо!
 |
Вопрос задал: stales (статус: 1-ый класс)
Вопрос отправлен: 28 апреля 2012, 16:40
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 6 мая 2012, 10:56; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 28 апреля 2012, 20:24 [#1]:
Для начала нужно определиться с форматом файла.
Как всегда, предлагаю XML.
Тебе надо всю таблицу сохранять или её часть (выделенное)?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
stales (статус: 1-ый класс), 29 апреля 2012, 10:32 [#2]:
Да, всю таблицу. Если можно по-подробнее.
|
|
|
stales (статус: 1-ый класс), 29 апреля 2012, 17:55 [#3]:
ADOtable1.Close;
ADOtable1.LoadFromFile('наличие.aaf');
ADOtable1.Open;
наличие.aaf - текстовый файл сохраненый методом
Adotable1.SaveToFile
ADODataset.SaveToFile(), ADODataset.LoadFromFile()
Нашел вот несколько примеров, но они работают уже с заранее прописанными именами файла, а мне бы через сохранение SaveDialog, т.е. самому указать название сохраненного файла, а потом в нужный момент через OpenDialog открыть файл в таблицу для просмотра.
|
|
|
min@y™ (статус: Доктор наук), 29 апреля 2012, 19:32 [#4]:
Цитата (stales):
а мне бы через сохранение SaveDialog, т.е. самому указать название сохраненного файла, а потом в нужный момент через OpenDialog открыть файл в таблицу для просмотра.
Мазафака! И этот чел вздумал разрабатывать СУБД!!!!!!
ЭтоПисец, граждане!
У TOpenDialog есть свойство FileName. Юзай на здоровье.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
stales (статус: 1-ый класс), 5 мая 2012, 16:41 [#5]:
Все, разобрался. Выкладываю код для новичков, у кого возникнет подобный вопрос. Этот код прекрасно работает, сохраняет и загружает данные.
procedure TForm1.Button1Click(Sender: TObject);
var
Fname: string;
begin
if SaveDialog1.Execute then
FName:= SaveDialog1.FileName;
ADOTable1.SaveToFile(FName);
end;
В строке Filter нужно добавить форматы сохранения таблиц - *.aaf, *.xml,
procedure TForm1.Button2Click(Sender: TObject);
var
Fname: string;
begin
if OpenDialog1.Execute then
Fname:= OpenDialog1.FileName;
ADOTable1.LoadFromFile(FName);
end;
|
5 мая 2012, 16:42: Статус вопроса изменён на решённый (изменил автор вопроса — stales): Решил.
|
|
min@y™ (статус: Доктор наук), 5 мая 2012, 21:08 [#6]:
Молодец, конечно, стараешься.
Ответь, только: для чего у тебя там локальная переменная FName?
З.Ы. По секрету скажу (тока тсссссссс), один хрен её оптимизатор выкинет из кода к ядрене фене.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
stales (статус: 1-ый класс), 6 мая 2012, 10:56 [#7]:
Спасибо, я понял, переделаю.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
