![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
YurKaluga |
![]()
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 53 Пол: Мужской Репутация: ![]() ![]() ![]() |
Проблема вот в чем - создаю таблицу с помощью Query:
Код Query1.SQL.Text:='Create table Teams '+ '(Code Autoinc,'+ ' Name character(50),'+ ' Country SmallInt DEFAULT 1,'+ ' City SmallInt,'+ ' Trainer character(150),'+ ' Glasses SmallInt DEFAULT 0,'+ ' Primary Key (Code))'; Query1.ExecSQL; Таблица создается, но значения по-умолчанию не цепляются. :fire: Почему? Может знаете? |
![]() ![]() |
hiv |
![]()
Сообщение
#2
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
Так ты говоришь что этим SQL скриптом ты ее создал. У меня просто так не создается, нужно либо альясы прописывать, либо еще какие-то телодвижения делать чтобы файл с таблицей создавать. Как делаешь ты - я не знаю. У меня пока файл парадокса создать не удается. Только DBASE DBF.
-------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
YurKaluga |
![]()
Сообщение
#3
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 53 Пол: Мужской Репутация: ![]() ![]() ![]() |
Код Query1.DatabaseName:=ExtractFilePath(Application.ExeName); Query1.SQL.Text:='Create table Teams '+ '(Code Autoinc,'+ ' Condition character(1),'+ ' FullName character(200),'+ ' Name character(50),'+ ' Country SmallInt default 1,'+ ' City SmallInt,'+ ' Chief character(150),'+ ' Trainer character(150),'+ ' Memo Blob(200,1),'+ ' Glasses SmallInt default 0,'+ ' Primary Key (Code))'; Query1.ExecSQL; На сколько я помню, файл Paradox создается по-умолчанию (поэтому я не указываю расширение после имени таблицы), а чтобы создался DBASE нужно как-то по другому объявлять имя. Вместо Alias я обычно использую DatabaseName, так проще - не нужно после создания базы прописывать псевдонимы. Установил на другую машину, указал путь к базе и все... Плюй в потолок. А делаю я следующее: бросаю на пустую форму TQuery & TButton и в обработчике нажатия кнопки пишу этот код. Никакие св-ва у компонентов не меняю. Судя по всяким help'ам все должно работать. В принципе и не ругается. Но и не делает того, что обещано |
![]() ![]() |
![]() |
Текстовая версия | 10.07.2025 22:03 |