var dir:string;
begin
Dir:=ExtractFilePath(ParamStr(0)) + 'base\'; //Путь к базе. В данном случае
// указываем путь и название файла примера базы данных
Table1.TableName:=dir+'base.db';
end;
Работаем с Paradox 7
Парни и девушки подмогите пожалуйста!!!
Работаю с базой данных, которая сделана в Paradox7 (работаю с Delphi 7.0). Дело вот в чём:
Программа при открытии обращается к базе и заполняет поля (это она делает хорошо).НО при переносе программы и самой базы в другое место (другую папку, диск и т.д.) программа запускается, НО не заполняет поля.
В чём дело??? Как это решить и решается ли вообще?
P.S. Вот расширения базы: base.db + с ней автоматом создаются следующие файлы: base.MB; base.PX
За ранее спасибо
Цитата: Cool Xacker
Всем доброе время суток!!!
Парни и девушки подмогите пожалуйста!!!
Работаю с базой данных, которая сделана в Paradox7 (работаю с Delphi 7.0). Дело вот в чём:
Программа при открытии обращается к базе и заполняет поля (это она делает хорошо).НО при переносе программы и самой базы в другое место (другую папку, диск и т.д.) программа запускается, НО не заполняет поля.
В чём дело??? Как это решить и решается ли вообще?
P.S. Вот расширения базы: base.db + с ней автоматом создаются следующие файлы: base.MB; base.PX
За ранее спасибо
Парни и девушки подмогите пожалуйста!!!
Работаю с базой данных, которая сделана в Paradox7 (работаю с Delphi 7.0). Дело вот в чём:
Программа при открытии обращается к базе и заполняет поля (это она делает хорошо).НО при переносе программы и самой базы в другое место (другую папку, диск и т.д.) программа запускается, НО не заполняет поля.
В чём дело??? Как это решить и решается ли вообще?
P.S. Вот расширения базы: base.db + с ней автоматом создаются следующие файлы: base.MB; base.PX
За ранее спасибо
Либо алиасы прописать правильно и динамически (в зависимости от того где база расположена) либо в запросах указывать полный путь к файлам таблиц
дело в том что я как раз и прописываю полностью путь к файлам баз данных
жаль :(
Код в студию!
Код установки данных для подключения к самой базе:
Код:
Код загрузки данных из бд в поля
Код:
Table1.First;
for i:=0 to Table1.RecordCount-1 do
begin
Edit1.Text:=DateToStr(Table1.FieldByName('Дата записи').AsDateTime);
Edit2.Text:=DateToStr(Table1.FieldByName('Дата изменения').AsDateTime);
Edit3.Text:=InttoStr(Table1.FieldByName('Номер ПК').AsInteger);
MaskEdit1.Text:=Table1.FieldByName('IP-адрес').AsString;
Edit4.Text:=Table1.FieldByName('Имя ПК').AsString;
Edit5.Text:=Table1.FieldByName('Пользователь').AsString;
Edit6.Text:=Table1.FieldByName('ОС').AsString;
ListBox1.Items.Text:=Table1.FieldByName('Софт').AsString;
end;
Table1.Next;
for i:=0 to Table1.RecordCount-1 do
begin
Edit1.Text:=DateToStr(Table1.FieldByName('Дата записи').AsDateTime);
Edit2.Text:=DateToStr(Table1.FieldByName('Дата изменения').AsDateTime);
Edit3.Text:=InttoStr(Table1.FieldByName('Номер ПК').AsInteger);
MaskEdit1.Text:=Table1.FieldByName('IP-адрес').AsString;
Edit4.Text:=Table1.FieldByName('Имя ПК').AsString;
Edit5.Text:=Table1.FieldByName('Пользователь').AsString;
Edit6.Text:=Table1.FieldByName('ОС').AsString;
ListBox1.Items.Text:=Table1.FieldByName('Софт').AsString;
end;
Table1.Next;
дело в том, что база в другом месте почему то пустая!!!
После подключения к базе Table1.RecordCount чему равно?
Table1.REcordCount-1
Попробуй засунуть Table1.Next внутрь цикла.
А что толку, всё равно такая беда, а если поставишь в цикл эту строку изменится только то, что одна запись дубет загружаться и всё и ничего более :(
[highlight=delphi]
repeat
{здесь добавляешь даные}
Table1.Next;
until Table1.Eof=true;
[/highlight]
И потом ты не ответил, чему равно свойство Table1.RecordCount?
После подключения к базе данных надо вписать
ShowMessage(IntToStr(Table1.RecordCount)); и сказать результат :)