Форум: "Базы";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

Как получить список запросов из базы MS Access   Найти похожие ветки 

← →
lav ©   (2004-11-14 07:49) [0]

Здравствуй ALL как из базы MS Access (Test.mdb) получить список запросов, и их SQL выражение?
Заранее благодарен.

---

← →
Ученик   (2004-11-14 10:43) [1]


procedure TForm1.Button1Click(Sender: TObject);
var
 NameField, DefinitionField: TField;
 DataSet: TADODataSet;
begin
 ADOConnection1.Open;
 DataSet := TADODataSet.Create(nil);
 try
   ADOConnection1.OpenSchema(siProcedures, EmptyParam, EmptyParam, DataSet);
   NameField := DataSet.FieldByName("PROCEDURE_NAME"); { do not localize }
   DefinitionField := DataSet.FieldByName("PROCEDURE_DEFINITION"); { do not localize }
   while not DataSet.EOF do
   begin
     ListBox1.Items.Add(NameField.AsString + ": " + DefinitionField.AsString);
     DataSet.Next;
   end;
 finally
   DataSet.Free;
 end;
end;



---

← →
sniknik ©   (2004-11-14 11:56) [2]

в вопросе запросы...

поменяй siProcedures на siViews
PROCEDURE_NAME на TABLE_NAME
PROCEDURE_DEFINITION на VIEW_DEFINITION

---

← →
Ученик   (2004-11-14 11:57) [3]

>sniknik ©   (14.11.04 11:56) [2]
MS Access

---

← →
sniknik ©   (2004-11-14 12:06) [4]

> MS Access
в чем глубинный смысл в разрезе данного вопроса?

---

← →
Ученик   (2004-11-14 12:13) [5]

>sniknik ©   (14.11.04 12:06) [4]
В результате :-)
Но что автору вопроса нужно, знает только автор

---

← →
sniknik ©   (2004-11-14 13:10) [6]

вполне понятный вопрос (на удивление) по моему
> получить список запросов, и их SQL выражение?
т.е. нужны именно запросы.

---

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

Форум: "Базы";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.041 c