Форум: "Базы";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];

Вниз

Количество файлов в DataBase   Найти похожие ветки 

← →
Voldemar   (2002-04-14 23:24) [0]

Доброе время суток!
Подскажите, плз, можно ли узнать именно через свойства DataBase, сколько таблиц (файлов .db) содержится в данный момент в алиасе?

---

← →
DPashin   (2002-04-15 08:57) [1]

//uses bde
procedure fDbiOpenTableList(DB:TDataBase; TableList: TStrings);
var
hCursor : hDBICur;
ListDesc : TBLBaseDesc;
begin
Check(DbiOpenTableList(DB.Handle, False, False, "*", hCursor));
TableList.Clear;
while (DbiGetNextRecord(hCursor, dbiNOLOCK, @ListDesc, nil) = dbiErr_None) do
TableList.Add(ListDesc.szName);
end;

---

← →
Kuusiniemi   (2002-04-15 10:21) [2]

А Session.GetTableNames не проще вызвать?

---

← →
AlexLi   (2002-04-15 11:43) [3]

Session.DataBases[i].DataSetCount

---

← →
Kuusiniemi   (2002-04-15 14:56) [4]

2 AlexLi.
Из хелпа: DataSetCount - "Indicates the number of active datasets associated with the connection component."
то есть это количество TDataset, которые в данный момент работают. А если использую ДВА TDataset, а БД у меня сотня таблиц???

---

← →
Севостьянов Игорь   (2002-04-16 12:06) [5]

Согласен с Kuusiniemi © (15.04.02 10:21)
Ребята иногда полезно читать HELP

GetTableNames Example
MyStringList := TStringList.Create;
try
Session.GetTableNames("DBDEMOS", "*.db",False, False, MyStringList);
{ Add the table names to a list box }
ListBox1.Items = MyStringList;
finally
MyStringList.Free;
end;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.005 c