Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.01.2011, 07:38   #1
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию несоответствие типов

Работаю с базой InterBase. Имеются 2 формы.
Код:
type// это в UNIT 2
  TForm2 = class(TForm)
    N_zakaza: TEdit;
    shifr_dostavki: TEdit;
    name_zakazchik: TEdit;
    gorod: TEdit;
    vid_transport: TEdit;
    date_dostavki: TEdit;
    opisanie: TMemo;
............
procedure TForm1.INSERT_RECORDClick(Sender: TObject);
begin
form2.ShowModal;
 if Form2.ModalResult=mrOk then
 begin
       insert_delete.sql.clear; // insert_delete:TSQLQuery;
       insert_delete.sql.Text:='INSERT INTO DOSTAVKA'+
       ' (SHIFR_DOSTAVKI,VID_TRANSPORT,OPISANIE) VALUES ('
       +chr($27)+Form2.Shifr_dostavki.Text+chr($27)+' , '+
       +chr($27)+Form2.vid_transport.Text+chr($27)+' , '+
       +chr($27)+Form2.opisanie.Text+chr($27)+
       ');COMMIT;';
       insert_delete.execSQL;

       insert_delete.sql.clear;
       insert_delete.sql.Text:='INSERT INTO ZAKAZ'+
      '(N_ZAKAZ,NAME_ZAKAZCHIK,GOROD,DATA_DOSTAVKI,SHIFR_DOSTAVKI) VALUES ('
       +chr($27)+Form2.N_zakaza.Text+chr($27)+' , '+
       +chr($27)+Form2.name_zakazchik.Text+chr($27)+' , '+
       +chr($27)+Form2.gorod.Text+chr($27)+' , '+
       +chr($27)+Form2.date_dostavki.Text+chr($27)+' , '+
       +chr($27)+Form2.shifr_dostavki.Text+chr($27)+
       ');COMMIT;';
       insert_delete.execSQL;
при попытке компиляции проекта выдаётся 6 однотипных ошибок, связанных с Edit`ами.
E2015 Operator not applicable to this operand type.
Я только не понимаю, почему несоответствие типов???
Если помог, проси поставить минус. Будь оригинален!

Последний раз редактировалось Rin; 11.01.2011 в 10:12.
Rin вне форума Ответить с цитированием
Старый 11.01.2011, 08:30   #2
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

чтобы было более понятно, выкладываю проект.
Вложения
Тип файла: rar laba.rar (90.4 Кб, 7 просмотров)
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 11.01.2011, 10:18   #3
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

хоть кто-нибудь :" HELP!!!"
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 11.01.2011, 12:38   #4
maLoy*508
Форумчанин
 
Аватар для maLoy*508
 
Регистрация: 28.03.2008
Сообщений: 672
По умолчанию

попробуй запрос с параметрами...
maLoy*508 вне форума Ответить с цитированием
Старый 11.01.2011, 12:40   #5
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

короче видать не может он в TText впихнуть несколько TText`ов!!!
долго мучился %) сделал так:
Код:
        insert_delete.sql.clear;
       insert_delete.sql.Text:='INSERT INTO DOSTAVKA'+
       ' (SHIFR_DOSTAVKI,VID_TRANSPORT,OPISANIE) VALUES ('
       +quotedstr(Form2.Shifr_dostavki.text)+' , ';
       insert_delete.sql.add(quotedstr(Form2.vid_transport.Tex)+' , ');
       insert_delete.sql.add(quotedstr(Form2.opisanie.text)+');');
       insert_delete.execSQL;

       insert_delete.sql.clear;
       insert_delete.sql.Text:='INSERT INTO ZAKAZ'+
       ' (N_ZAKAZ,NAME_ZAKAZCHIK,GOROD,DATA_DOSTAVKI,SHIFR_DOSTAVKI) VALUES ('
       +quotedstr(Form2.N_zakaza.Text)+' , ';
       insert_delete.sql.add(quotedstr(Form2.name_zakazchik.text)+' , ');
       insert_delete.sql.add(quotedstr(Form2.gorod.text)+' , ');
       insert_delete.sql.add(quotedstr(Form2.date_dostavki.text)+' , ');
       insert_delete.sql.add(quotedstr(Form2.Shifr_dostavki.text)+');');
       insert_delete.execSQL;
Если помог, проси поставить минус. Будь оригинален!

Последний раз редактировалось Rin; 11.01.2011 в 12:53.
Rin вне форума Ответить с цитированием
Старый 11.01.2011, 13:54   #6
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,751
По умолчанию

С 1 поста
а плюсиков не многовато в коде?
Цитата:
Код:
+chr($27)+Form2.N_zakaza.Text+chr($27)+' , '+
       +chr($27)+Form2.name_zakazchik.Text+chr($27)+' , '+
       +chr($27)+Form2.gorod.Text+chr($27)+' , '+
       +chr($27)+Form2.date_dostavki.Text+chr($27)+' , '+
       +chr($27)+Form2.shifr_dostavki.Text+chr($27)+
       ');COMMIT;';// и это зачем
vovk вне форума Ответить с цитированием
Старый 11.01.2011, 14:26   #7
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

commit; хз. я не адекватен , третий день,как я не спал, через 12 часов будет.
знаю, что commit - выполнить скрипт...
но в делфи зачем я его впихнул, не знаю.

плюсов реально многовато.но не думаю, что несовпадение типов из-за них.
хотя фиг знает. проверять не стал. много и без этого делать надо.
Если помог, проси поставить минус. Будь оригинален!

Последний раз редактировалось Rin; 11.01.2011 в 14:29.
Rin вне форума Ответить с цитированием
Старый 11.01.2011, 14:27   #8
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,751
По умолчанию

именно изза них
vovk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Несоответствие типов. Иван=) Помощь студентам 7 04.11.2010 13:27
Несоответствие должностным требованиям ACE Valery Свободное общение 45 23.08.2010 03:57
Несоответствие работы cin.putback в разных компилляторах DeizR Общие вопросы C/C++ 3 03.08.2009 17:31
несоответствие масштаба сетки и графика (C++Builder) nici Помощь студентам 1 08.07.2009 09:50
Несоответствие типов nusik Общие вопросы Delphi 14 31.05.2009 17:24