Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

заголовки таблиц [D7, Access]

lehich © (2004-05-27 15:42:00)
есть: файл Access
нужно: программным путем получить заголовки всех таблиц и имена полей в этих таблицах..

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

lehich (2004-05-27 16:04:00) [1]
сенкс... нашел несколько статей... бум изучать... спасибо огромное...))))

Соловьев (2004-05-27 15:56:00) [2]

> The requested URL could not be retrieved

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

lehich (2004-05-27 15:55:00) [3]
The requested URL could not be retrieved

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

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

Соловьев (2004-05-27 15:53:00) [4]
http://www.delphikingdom.com/zip/offline/kd-05-01-2004.chm- читать Hello world

lehich (2004-05-27 15:51:00) [5]
да я просто не представляю с чего начать... какой-нибудь стартовый пинок...))))))) типа хелпа для noob...)))

Соловьев (2004-05-27 15:49:00) [6]

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

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

lehich (2004-05-27 15:48:00) [7]
огромное спасибо... а еще если не сложно подскажете линк где можно поподробнее про ADO почитать???

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

Соловьев (2004-05-27 15:46:00) [8]
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;

Наверх

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