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

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

консольное приложение [D6, Win2k]

Sergey V. Shadrin ©   (2002-08-28 07:31:00) 

есть консольное приложение. как-то в нем можно использовать объекты (например TTable, для доступа к базе данных) в сервисах можно, а в консольных не получается :(

---

MBo   (2002-08-28 07:59:00) [1]

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils,dbtables;
var table1:ttable;
begin
table1:=ttable.create(nil);
table1.DatabaseName:="DBDEMOS";
table1.tablename:="animals.dbf";
table1.Active:=true;
Writeln(table1.Fields[0].AsString);
table1.Next;
Write(table1.Fields[0].AsString);
Writeln(" size: ",table1.FieldByName("Size").AsString," cm");
readln;
table1.free;
end.

---

Sergey V. Shadrin   (2002-08-28 07:51:00) [2]

так а как прочитать из базы значение поля id_ca? и table.next работает?

---

MBo   (2002-08-28 07:40:00) [3]

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils,dbtables;
var table1:ttable;
begin
table1:=ttable.create(nil);
table1.DatabaseName:="DBDEMOS";
table1.tablename:="animals.dbf";
table1.Active:=true;
Writeln(table1.Fields[0].AsString);
readln;
table1.free;
end.

---

Наверх