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

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

Перевести запрос к MDB из VB в DELPHI [D7, Access]

RealSwift ©   (2008-07-05 14:41:00) 

Доброе время суток.

С Delphi только начинаю знакомство.

Есть код на VB

   
Set Conn1 = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.RecordSet")

Conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\1.mdb;"
Rs.Open "SELECT IP FROM TBLIP WHERE NAME='OLEG'", Conn1, 3, 3
       Do While Not Rs.EOF
           Pi1 = Pi1 + 1
           Pmas1(Pi1) = Rs("IP")
           Rs.movenext
       Loop
   Rs.Close
Conn1.Close


Как это всё написать на Delphi?
Заранее благодарю!

---

Виталий Панасенко(дом)   (2008-07-05 21:18:00) [1]

> RealSwift   (05.07.08 16:26) [2]
>
> То, что нужно.
> Огромное спасибо!

Только вообще-то есть закладка ADO, там есть ADOConnection и остальное...для работы через АДО

---

RealSwift   (2008-07-05 16:26:00) [2]

То, что нужно.
Огромное спасибо!

---

DrPass   (2008-07-05 15:30:00) [3]


var
 Conn1, Rs: Variant;
begin  
 Conn1:= CreateOLEObject('ADODB.Connection');
 Rs:= CreateOLEObject('ADODB.RecordSet');

 Conn1.Open('DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\1.mdb;');
 Rs.Open('SELECT IP FROM TBLIP WHERE NAME=''OLEG''', Conn1, 3, 3);
 While not Rs.EOF do
 begin
    Pi1:= Pi1 + 1;
    Pmas1[Pi1]:= Rs.Fields['IP'];
    Rs.movenext;
 end;
 Rs.Close;
 Conn1.Close;
end;

---

Наверх