Скачать: CL | DM;

ADO и Access: GetTableNames   Найти похожие ветки 

← →
Павел Боровик   (2004-09-15 21:13) [0]

Использую связку ADOConnection + ADOTable для открытия mdb файлов.

Список таблиц получаю при помощи GetTableNames.

Как получить список запросов в mdb файле?

---

← →
sniknik ©   (2004-09-15 23:21) [1]

легко, на самом деле легко, зажми Ctrl и кликни по слову GetTableNames в редакторе дельфей, выйдеш на оригинальный код, скопируй его в себе программу (править в оригинале не рекомендуется).
в общем то и все что поправить (всего 1 условие расширить) видно практически сразу.

---

← →
Erik1 ©   (2004-09-16 10:13) [2]

А StoredProc непоможет отцу руской демократии?

---

← →
Rem   (2004-09-16 10:56) [3]

[2]
1. Access не поддерживает хранимые процедуры.
2. Вопрос был про запросы (представления, VIEWs), а не про хранимые процедуры.

---

← →
Erik1 ©   (2004-09-16 14:43) [4]

To Rem
"Access не поддерживает хранимые процедуры" да не ужто?! Откуда такие сведенья? A, что TADOStordProc показывает? Конечно им далеко до настоящих процедур они больше на View похожи, но это не повод утверждать, что их нет.
 Я и ответил на вопрос, надо было только брость на форму TADOStordProc и проверить.

---

← →
Павел Боровик   (2004-09-16 20:12) [5]

Спасибо за помощь.

Вставляю кусок в свою программу (из модуля ADODB):

procedure TMyForm.GetTableNames(List: TStrings;
 SystemTables: Boolean);
var
 TypeField,
 NameField: TField;
 DataSet: TADODataSet;
begin
 ADOConnection.CheckActive;
 DataSet := TADODataSet.Create(nil);
 try
   ADOConnection.OpenSchema(siTables, EmptyParam, EmptyParam, DataSet);
   TypeField := DataSet.FieldByName("TABLE_TYPE"); { do not localize }
   NameField := DataSet.FieldByName("TABLE_NAME"); { do not localize }
   List.BeginUpdate;
   try
     List.Clear;
     while not DataSet.EOF do
     begin
       if (TypeField.AsString = "TABLE") or (SystemTables and { do not localize }
          (TypeField.AsString = "SYSTEM TABLE")) then         { do not localize }
         List.Add(NameField.AsString);
       DataSet.Next;
     end;
   finally
     List.EndUpdate;
   end;
 finally
   DataSet.Free;
 end;
end;

и начинается петрушка :(

---

← →
Павел Боровик   (2004-09-16 20:13) [6]

не знает CheckActive, не знает OpenSchema...

---

← →
z12 ©   (2004-09-16 21:07) [7]

Удалено модератором

---

← →
sniknik ©   (2004-09-16 22:07) [8]

не знает CheckActive,
ну это можно выкинуть, чего не знаеш активен конект или нет?
но можно и так
тип
TMyADOConnection = class(TADOConnection);
и
TMyADOConnection(ADOConnection1).CheckActive

не знает OpenSchema...
uses ADODB; ?
но ты чего прям так вставляеш, а ADOConnection у тебя тоже есть? или всетаки ADOConnection1?

вот, этого должно хватить

procedure TForm1.GetTableNames(List: TStrings);
var TypeField, NameField: TField;
   TableType: string;
begin
 ADOConnection1.OpenSchema(siTables, EmptyParam, EmptyParam, FieldSchema);
 TypeField:= FieldSchema.FieldByName("TABLE_TYPE");
 NameField:= FieldSchema.FieldByName("TABLE_NAME");
 List.BeginUpdate;
 try
   List.Clear;
   while not FieldSchema.EOF do begin
     TableType:= TypeField.AsString;
     if (TableType = "TABLE") or (TableType = "VIEW") then List.Add(NameField.AsString;);
     FieldSchema.Next;
   end;
 finally
   List.EndUpdate;
 end;
end;

FieldSchema это датасет (просто положи на форму не подключая к конекту, а вот грид к нему можно, просто посмотреть что в нем будет)

---

← →
Павел Боровик   (2004-09-16 23:01) [9]

Спасибо.

Дело Мастера Delphi боится :)

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.036 c