Перенос наработок из VBA в Delphi

← →
Shizuku © (2005-01-19 12:32) [0]

В VBA чрезвычано удобно организована работа с запросами через ADO: OpenRecordset("Query_text" or Table_name) и всё! Есть какие-нибудь схожие средства Delphi?

Пример кода на VBA
=========================
Set Record = DataBase.OpenRecordset("Student", dbOpenDynaset) " Record.FindFirst "[user_id]="" & UserForm1.TextBox1.Text & """ If Record.NoMatch = False Then MsgBox ("Äîáðî ïîæàëîâàòü, " & Record.Fields("user_id").Value) UserForm1.Hide UserForm3.Show Else MsgBox ("Ïîëüçîâàòåëü " & UserForm1.TextBox1.Text & _ " íå çàðåãèñòðèðîâàí") End If " End Sub

← →
Janb (2005-01-19 12:37) [1]

adoquery1.sql.add("select * from yourtablename")

← →
Shizuku © (2005-01-19 13:04) [2]

Понятно. Весь проект придётся делать под ADO.

← →
Digitman © (2005-01-19 14:32) [3]

> В VBA чрезвычано удобно организована работа с запросами
> через ADO

не через ADO, а через DAO

var
dbe, ws, db, rs: OleVariant;

dbe := CreateOleObject("DAO.DBEngine");
ws := dbe.Workspaces(0);
db := ws.OpenDatabase(...);
rs := db.OpenRecordset(...);

и т.д. и т.п.

Shizuku © (19.01.05 13:04) [2]
через ADO тоже можно (догадываешся наверное ;о))), в дельфях удобнее, но ты привел пример (OpenRecordset) из арсенала DAO. (поэтому и > не через ADO, а через DAO в [3])

Перенос наработок из VBA в Delphi Найти похожие ветки