Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите работать с БД из консольного приложения, пишу в Delphi5 СОМ сервер работающий сБД 
:(
    Опции темы
SlavA
Дата 16.1.2003, 06:37 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Помогите пожалуйста!!!
Суть проблемы в следующем: мне необходимо работать с dbf файлами не используя визуальные компоненты, что я делаю для проверки работоспособности: я регистрирую базу данных в SQL Explorer, создаю кансольное приложение, создаю Data Module, подключаю к нему соотв базу данных с помощью TTable и Data Source, модуль, в котором прописан и объявлен Data Module подключаю к основному модулю (для консоли - это файл проекта) и пытаюсь получить для соответствующей таблицы хотябы число полей в наборе данных(FieldCount) и вывести это на консоль. При выполнении программы нет ни каких ошибок (во всяком случае среда ничего не сообщает) но консоль быстро пропадает и программа завершается (затормозить не удаётся), короче: с консолью ничего не получается...
Но когда я пробую то же самое сделать, создавая вместо консоли форму и выводя результат в Edit, то всё получается...
Что делать? Помогите!!!
  Вверх
Vit
Дата 16.1.2003, 07:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207



В конце консоли перед "End." поставить строку:  "readln;"


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Vit
Дата 16.1.2003, 07:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207



Собственно даже модули не нужны, вот код который делает то что вы просите:
Код

program Project1;

uses Forms, DBTables;

var Table:TTable;

begin
 Table:=TTable.create(nil);
 Table.DatabaseName:='MyAliasName';
 Table.TableName:='MyTableName';
 Table.Active:=true;
 writeln(Table.fieldcount);
 Table.Active:=false;
 Table.free;
 readln;
end.



--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0745 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.