Ошибка при добавление записей

@Mantikor123 · Регистрация: 23.12.2009

Author24 — интернет-сервис помощи студентам

Доброго времени суток
пытаюсь внести запись в бд мускула, в таблицу user вноситься спокойно а вот во вторую таблицу на Post начинает ругаться, причем делаю со другой таблицей работает...
уже пытался обрезать таблицу по самое не могу но все равно.. уже просто интересно, почему с таблицей выкладачи работает а со студентами такая лажа.

прин ошибки, структура базы, и код которым добавляю прилагаю)

не рабочий код

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var pol,id_us,kyrse:integer;
pol_str:string;
begin
with DataModule1.Tab_user  do
begin
            Insert;
            FieldByName('Name').AsString:=Edit1.Text;
            FieldByName('Surname').AsString:=Edit2.Text;
            FieldByName('Pass').AsString:=Edit3.Text;
            FieldByName('Rang').AsString:='1';
            if pol=1 then pol_str:='Женский'  else pol_str:='Мужской';
            FieldByName('Pol').AsString:=pol_str;
            Post;
end;
ShowMessage('user');
id_us:=DataModule1.Tab_user.LastInsertId;
 
kyrse:=ComboBox2.ItemIndex+1;
 
with DataModule1.Tab_stud  do
begin
          Insert;
            //nom:=ComboBox1.Text;
            //nom:=nom+1;
            FieldByName('Kyrs').AsInteger:=kyrse;
            FieldByName('Group').AsString:=Edit4.Text;
{ShowMessage('3');
            FieldByName('Zagal_bal').AsFloat:=0;
ShowMessage('4');
            FieldByName('Kavectvo_nav').AsFloat:=0;
            FieldByName('Код_факультета').AsString:=VarToStr(DBLookupComboBox1.KeyValue);
            if ComboBox1.ItemIndex<4 then      begin
            FieldByName('Nap_cpec').AsString:=VarToStr(DBLookupComboBox3.KeyValue);
            FieldByName('Vid_nav').AsString:='Напр';
            end
            else
            begin
            FieldByName('Nap_cpec').AsString:=VarToStr(DBLookupComboBox2.KeyValue);
            FieldByName('Vid_nav').AsString:='Спец';
            end;
            FieldByName('Nap_cpec').AsString:='Спец';
ShowMessage('5');
            FieldByName('Vid_nav').AsString:='Спец';
ShowMessage('6');                                        }
            FieldByName('id_user').AsInteger:=id_us;
            Post;
end;
 ShowMessage('stud');
 
 
 
 
end;

рабочий код

Delphi

procedure TForm3.Button1Click(Sender: TObject);
var pol,id_us,kyrse:integer;
pol_str:string;
begin
with DataModule1.Tab_user  do
begin
            Insert;
            FieldByName('Name').AsString:=Edit1.Text;
            FieldByName('Surname').AsString:=Edit2.Text;
            FieldByName('Pass').AsString:=Edit3.Text;
            FieldByName('Rang').AsString:='2';
            if pol=1 then pol_str:='Женский'  else pol_str:='Мужской';
            FieldByName('Pol').AsString:=pol_str;
            Post;
end;
id_us:=DataModule1.Tab_user.LastInsertId;
with DataModule1.Tab_vikl  do
begin
            Insert;
            FieldByName('Zvana').AsString:=Edit4.Text;
            FieldByName('pocada').AsString:=Edit5.Text;
            FieldByName('id_user').AsInteger:=id_us;
            Post;
end;
 
ShowMessage('Додано');
 
end;

@Mantikor123 · 23.01.2014, 18:01 **[ТС]**

пытался запросом сделать

Delphi

DataModule1.UniQuery1.Active:=true;
DataModule1.UniQuery1.Close;
DataModule1.UniQuery1.SQLInsert.Add('Insert Into stud (id_user, kyrs, group)');
DataModule1.UniQuery1.SQLInsert.Add( 'Values ("3", "2", "кн")');
 
DataModule1.UniQuery1.Open;

но все равно таже ошыбка

@ZfoxAK · 24.01.2014, 06:19

Сообщение от Mantikor123

DataModule1.UniQuery1.Open;

Для insert, update

Delphi

1	DataModule1.UniQuery1.ExecSQL

@Mantikor123 · 24.01.2014, 12:37 **[ТС]**

все равно этаже ошибка(

Добавлено через 13 минут
ошибка вылазит когда добавляю FieldByName('group').AsString:='кн'; мозги висят(

почему куда копать... может такое быть изо того что я делаю таблицы не в phpmyadmin а в програме Navicat?

Добавлено через 6 минут
все равно, ошибка... что в пшп что в навикате((

Что подскажите?
почему в одной таблице все нормально, а в другой такая трабла(

@Joeymax · 24.01.2014, 13:24

А тебя не смущает, что group ключевое слово?

@palva · 24.01.2014, 13:33

Попробуйте group заключить в квадратные скобки.

@Mantikor123 · 24.01.2014, 14:08 **[ТС]**

Г_г честно не смущает) потому что только дошло как вы сказали))
сейчас попробуем)

Добавлено через 4 минуты
Спасибо, теперь хоть знать буду что за ошибка))

@Mantikor123 22 / 22 / 12 Регистрация: 23.12.2009 Сообщений: 279
	24.01.2014, 12:37 [ТС]	4
	все равно этаже ошибка( Добавлено через 13 минут ошибка вылазит когда добавляю FieldByName('group').AsString:='кн'; мозги висят( почему куда копать... может такое быть изо того что я делаю таблицы не в phpmyadmin а в програме Navicat? Добавлено через 6 минут все равно, ошибка... что в пшп что в навикате(( Что подскажите? почему в одной таблице все нормально, а в другой такая трабла( 0

@Joeymax 1177 / 419 / 106 Регистрация: 31.03.2012 Сообщений: 1,145
	24.01.2014, 13:24	5
	А тебя не смущает, что group ключевое слово? 1

@palva 4240 / 2937 / 687 Регистрация: 08.06.2007 Сообщений: 9,817 Записей в блоге: 4
	24.01.2014, 13:33	6
	Попробуйте group заключить в квадратные скобки. 1

@Mantikor123 22 / 22 / 12 Регистрация: 23.12.2009 Сообщений: 279
	24.01.2014, 14:08 [ТС]	7
	Г_г честно не смущает) потому что только дошло как вы сказали)) сейчас попробуем) Добавлено через 4 минуты Спасибо, теперь хоть знать буду что за ошибка)) 0