| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Количество файлов в DataBase [D6, Paradox]

Voldemar ©   (2002-04-14 23:24:00) 

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

---

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

Согласен с 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;

---

Kuusiniemi   (2002-04-15 14:56:00) [2]

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

---

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

Session.DataBases[i].DataSetCount

---

Kuusiniemi   (2002-04-15 10:21:00) [4]

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

---

DPashin   (2002-04-15 08:57:00) [5]

//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;

---

Наверх