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

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

← →
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

---

← →
lehich ©   (2004-05-27 15:55) [6]

The requested URL could not be retrieved

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

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

---

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

> The requested URL could not be retrieved

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

---

← →
lehich ©   (2004-05-27 16:04) [8]

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

---

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

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



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