Delphi

BlackEric · Отправлено: **00:45, 30-10-2009** | #11

Это очень древняя штука. Sql она не держит. Насколько помнится она генерила бд какого-то Paradox, но могу и ошибаться. В моей 2006 этого уже нет и посмотреть неначем. Sorry. С такой древностью не помогу

pirojok750 · Отправлено: **00:53, 30-10-2009** | #12

BlackEric, спасибо за помошь.Товарищи с http://www.delphisources.ru/ подкинули вот такую идею

Код:

var  list:Tstrings;  
begin  Database1.GetTableNames(list,False);  
ComboBox1.Items.AddStrings(list);

У меня это не работает,но я уверен не работает из-за меня,потому что я очень слабо в них разбираюсь.Что вы можете сказать по этому коду??

Цитата BlackEric:

Это очень древняя штука. Sql она не держит. »

создание таблиц я уже прописал.язык для создания-SQL. получается моя держит.

BlackEric · Отправлено: **01:54, 30-10-2009** | #13

У вас list не заполняется? Или в чем проблема? Используйте отладчик для поиска

pirojok750 · Отправлено: **17:27, 30-10-2009** | #14

BlackEric, в комбобоксе ничего не отражается.

pirojok750 · Отправлено: **18:08, 30-10-2009** | #15

попытался записать list в memo таких методом

Код:

memo1.lines.addstrings(list)

компилятор выдал ошибку что переменная list используется без инициализации

BlackEric · Отправлено: **22:07, 30-10-2009** | #16

pirojok750, приведите полностью исходный код процедуры и текст ошибки

pirojok750 · Отправлено: **23:08, 30-10-2009** | #17

Код:

procedure TForm1.Button5Click(Sender: TObject);  
var  list:Tstrings; 
begin
Database1.GetTableNames(list,false); 
 ComboBox1.Items.AddStrings(list);  end;

[Warning] Unit1.pas(90): Variable 'list' might not have been initialized

BlackEric · Отправлено: **23:36, 30-10-2009** | #18

Это не ошибка, а предупреждение! вас GetTableNames ничего не возвращает судя по всему

pirojok750 · Отправлено: **23:54, 30-10-2009** | #19

BlackEric, в sql explorer я создал базу данных,назвад ее mydb и для нее указал путь к папке куда сохранять таблицы (D:\BD\).на форму кинул невизуальный компонент DataBase1.В его свойстве AliasName выбрал созданную Бд(mydb), в свойстве database name написал DJB.Так же кинул элемент Table1 и в его свойстве указал database name указал DJB.У него есть свойство TableName в котором можно выбрать созданные мной БД(они находятся в папке D:\BD\),но почему то в list они не записываются.Если необходимо могу скинуть все исходники программы,чтобы вам удобнее было разобраться

BlackEric · Отправлено: **00:14, 31-10-2009** | #20

Формализуем.
Ваша бд лежит в каталоге на диске. И в ней каждая таблица представлена одним файлом с расширением db или dbf?
И вам нужно получить список таблиц.
Для этого я бы рекомендовал пройтись по каталогу и получить в нем список файлов средствами работы с файлами. Через BDE вы это врядли сделаете. Там структура бд как я помню менялась простым подкидыванием и удалением файлов.