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

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

Перенос наработок из VBA в Delphi [D7, IB6.x]

Shizuku ©   (2005-01-19 12:32:00) 

В 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

---

sniknik   (2005-01-19 15:34:00) [1]

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

---

Digitman   (2005-01-19 14:32:00) [2]

> В 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   (2005-01-19 13:04:00) [3]

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

---

Janb   (2005-01-19 12:37:00) [4]

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

---

Наверх