Форум: "Базы";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Вниз

Перенос наработок из 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(...);

и т.д. и т.п.

---

← →
sniknik ©   (2005-01-19 15:34) [4]

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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c