| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как получить список запросов из базы MS Access [D5, MS Access]

lav ©   (2004-11-14 07:49:00) 

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

---

sniknik   (2004-11-14 13:10:00) [1]

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

---

Ученик   (2004-11-14 12:13:00) [2]

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

---

sniknik   (2004-11-14 12:06:00) [3]

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

---

Ученик   (2004-11-14 11:57:00) [4]

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

---

sniknik   (2004-11-14 11:56:00) [5]

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

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

---

Ученик   (2004-11-14 10:43:00) [6]


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;



---

Наверх