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

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

Список таблиц

9899100 ©   (2008-07-31 11:05:00) 

Подскажите пожалуйста, возможно ли получить список таблиц при использовании ODBC и ADO, если не известно к какому типу данных коннектиться ADO.
Т.е. например есть разные источники данных, MDB, DBF (а может и другие типы). Программа соеденяеться с ними через ODBC надо получить список таблиц.

---

Ega23   (2008-08-01 12:57:00) [1]

> Откуда это страхиття ? Неужто их хелпа ?


Ага.
TADOConnection.GetTableNames + F1 -> example.

---

MsGuns   (2008-08-01 12:29:00) [2]

>Ega23 ©   (31.07.08 11:12) [1]

Откуда это страхиття ? Неужто их хелпа ?

---

9899100   (2008-07-31 11:35:00) [3]

Сенкс :)

---

Ega23   (2008-07-31 11:12:00) [4]


The example below fetches a list of all tables in an ADO data store. It then traverses this list, making an entry in another table with each table’s name and number of records.

procedure TForm1.Button1Click(Sender: TObject);

var
 SL: TStrings;
 index: Integer;
begin
 SL := TStringList.Create;
 try
   ADOConnection1.GetTableNames(SL, False);
   for index := 0 to (SL.Count - 1) do begin
     Table1.Insert;
     Table1.FieldByName('Name').AsString := SL[index];
     if ADOTable1.Active then ADOTable1.Close;
     ADOTable1.TableName := SL[index];
     ADOTable1.Open;
     Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount;

     Table1.Post;
   end;
 finally
   SL.Free;
   ADOTable1.Close;
 end;
end;

?

---

Наверх