заголовки таблиц

← →
lehich © (2004-05-27 15:42) [0]

есть: файл Access
нужно: программным путем получить заголовки всех таблиц и имена полей в этих таблицах..

мастера подскажите каким образом это осуществить????

← →
Соловьев © (2004-05-27 15:46) [1]

procedure Tdm.GetOnlyTable(ADOConnection:TADOConnection; List: TStrings);
var
TypeField,
NameField: TField;
TableType: string;
DataSet: TADODataSet;
begin
with ADOConnection do
begin
// CheckActive;
DataSet := TADODataSet.Create(nil);
try
// GetFieldNames();
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
TableType := TypeField.AsString;
if (TableType = "TABLE") then
List.Add(NameField.AsString);
DataSet.Next;
end;
finally
List.EndUpdate;
end;
finally
DataSet.Free;
end;
end;
end;

procedure Tdm.GetField(ADOConnection:TADOConnection; List: TStrings; const TableName: string);
const
COLUMN_NAME = "COLUMN_NAME"; { Do not localize }
var
Fields: _Recordset;
begin
// CheckActive;
with ADOConnection do
begin
Fields := ConnectionObject.OpenSchema(adSchemaColumns, VarArrayOf([Null, Null, TableName]),
EmptyParam);
with List do
begin
BeginUpdate;
try
Clear;
while not Fields.EOF do
begin
Add(VarToStr(Fields.Fields[COLUMN_NAME].Value));
Fields.MoveNext;
end;
finally
EndUpdate;
end;//try
end;//with
end;//with
end;

← →
lehich © (2004-05-27 15:48) [2]

огромное спасибо... а еще если не сложно подскажете линк где можно поподробнее про ADO почитать???

заранее премного благодарен...

← →
Соловьев © (2004-05-27 15:49) [3]

> [2] lehich © (27.05.04 15:48)

я привел исходники адо - которые в делфи :)
хелп по адо - очень даже :)

← →
lehich © (2004-05-27 15:51) [4]

да я просто не представляю с чего начать... какой-нибудь стартовый пинок...))))))) типа хелпа для noob...)))

← →
Соловьев © (2004-05-27 15:53) [5]

http://www.delphikingdom.com/zip/offline/kd-05-01-2004.chm - читать Hello world

The requested URL could not be retrieved

а про hello word я знаю...))))) я про ADO не представляю с чего начать...(((((

заранее премного благодарен..))))

> The requested URL could not be retrieved

ссылка рабочая.. у тебя может с инетом чего...
Там как раз про адо есть статьи

сенкс... нашел несколько статей... бум изучать... спасибо огромное...))))

заголовки таблиц Найти похожие ветки