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...

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

не знает 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 боится :)

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