Форум: "Начинающим";
Текущий архив: 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