Перевести запрос к MDB из VB в DELPHI

← →
RealSwift (2008-07-05 14:41) [0]

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

С 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?
Заранее благодарю!

← →
DrPass © (2008-07-05 15:30) [1]

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;

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

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

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

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

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

Перевести запрос к MDB из VB в DELPHI Найти похожие ветки