Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Работаем с Paradox 7

1.9K
06 марта 2008 года
Cool Xacker
148 / / 06.06.2006
Всем доброе время суток!!!

Парни и девушки подмогите пожалуйста!!!
Работаю с базой данных, которая сделана в Paradox7 (работаю с Delphi 7.0). Дело вот в чём:

Программа при открытии обращается к базе и заполняет поля (это она делает хорошо).НО при переносе программы и самой базы в другое место (другую папку, диск и т.д.) программа запускается, НО не заполняет поля.

В чём дело??? Как это решить и решается ли вообще?

P.S. Вот расширения базы: base.db + с ней автоматом создаются следующие файлы: base.MB; base.PX

За ранее спасибо
11
06 марта 2008 года
oxotnik333
2.9K / / 03.08.2007
Цитата: Cool Xacker
Всем доброе время суток!!!

Парни и девушки подмогите пожалуйста!!!
Работаю с базой данных, которая сделана в Paradox7 (работаю с Delphi 7.0). Дело вот в чём:

Программа при открытии обращается к базе и заполняет поля (это она делает хорошо).НО при переносе программы и самой базы в другое место (другую папку, диск и т.д.) программа запускается, НО не заполняет поля.

В чём дело??? Как это решить и решается ли вообще?

P.S. Вот расширения базы: base.db + с ней автоматом создаются следующие файлы: base.MB; base.PX

За ранее спасибо



Либо алиасы прописать правильно и динамически (в зависимости от того где база расположена) либо в запросах указывать полный путь к файлам таблиц

1.9K
06 марта 2008 года
Cool Xacker
148 / / 06.06.2006
дело в том что я как раз и прописываю полностью путь к файлам баз данных
1.9K
11 марта 2008 года
Cool Xacker
148 / / 06.06.2006
ну что, ни у кого нет вариантов и мнений по этому поводу???
жаль :(
247
11 марта 2008 года
wanja
1.2K / / 03.02.2003
Код в студию!
1.9K
11 марта 2008 года
Cool Xacker
148 / / 06.06.2006
Просили код, получайте:

Код установки данных для подключения к самой базе:

 
Код:
var dir:string;
begin
Dir:=ExtractFilePath(ParamStr(0)) + 'base\'; //Путь к базе. В данном случае
// указываем путь  и название файла примера базы данных
Table1.TableName:=dir+'base.db';
end;


Код загрузки данных из бд в поля
Код:
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;
1.9K
11 марта 2008 года
Cool Xacker
148 / / 06.06.2006
дело в том, что база в другом месте почему то пустая!!!
6
12 марта 2008 года
George
4.1K / / 05.01.2007
После подключения к базе Table1.RecordCount чему равно?
1.9K
12 марта 2008 года
Cool Xacker
148 / / 06.06.2006
Table1.REcordCount-1
247
13 марта 2008 года
wanja
1.2K / / 03.02.2003
Попробуй засунуть Table1.Next внутрь цикла.
1.9K
13 марта 2008 года
Cool Xacker
148 / / 06.06.2006
А что толку, всё равно такая беда, а если поставишь в цикл эту строку изменится только то, что одна запись дубет загружаться и всё и ничего более :(
6
13 марта 2008 года
George
4.1K / / 05.01.2007
имхо лучше такой цикл:
[highlight=delphi]
repeat
{здесь добавляешь даные}
Table1.Next;
until Table1.Eof=true;
[/highlight]
И потом ты не ответил, чему равно свойство Table1.RecordCount?
После подключения к базе данных надо вписать
ShowMessage(IntToStr(Table1.RecordCount)); и сказать результат :)
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог