Форум: "Начинающим";
Текущий архив: 2008.08.03;
Скачать: [xml.tar.bz2];
ВнизПеревести запрос к 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 и остальное...для работы через АДО
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.08.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c