Сохранение данных

nikitos_EKB

Дата: 06.05.2011 00:11:42

Не получается сохранить данные в базу, программа запускается но при нажатии на кнопку Сохранить появляется ошибка : Ошибка синтаксиса в инструкции Insert Intro. Подскажите что не так делаю, вот код:

procedure TForm1.sButton10Click(Sender: TObject);
var
fields, values : string;
begin
fields := ' (Предмет, Всего, Теоритические, Лабораторные, Курсовые) ';
values := '+ sEdit3.Text +,+ sEdit4.Text + , + sEdit5.Text + , +sEdit6.Text + , + sEdit7.Text +';
if CheckBox1.Checked then
begin
fields := fields + ', Экзамены';
values := values + ', 1';
end;
ADOCommand1.CommandText:= 'insert into ' + sEdit1.text + '(' + fields + ')' + 'values (' + values + ')';
ADOCommand1.Execute;

end;

попробуйте в access

Дата: 06.05.2011 00:17:06

//ничего не смущает в увиденном ?
showmessage 'insert into ' + sEdit1.text + '(' + fields + ')' + 'values (' + values + ')';
// попробуйте выполнить этот запрос в среде access

nikitos_EKB

Дата: 06.05.2011 00:23:40

попробуйте в access
//ничего не смущает в увиденном ? showmessage 'insert into ' + sEdit1.text + '(' + fields + ')' + 'values (' + values + ')'; // попробуйте выполнить этот запрос в среде access

попробуйте в access

//ничего не смущает в увиденном ?
showmessage 'insert into ' + sEdit1.text + '(' + fields + ')' + 'values (' + values + ')';
// попробуйте выполнить этот запрос в среде access

ну я и так с access работаю

qwerty112

Дата: 06.05.2011 00:23:56

вам достаточно будет начать пользоватся тегом [ SRC ], и ошибки увидите сами

nikitos_EKB
procedure TForm1.sButton10Click(Sender: TObject); var fields, values : string; begin fields := ' (Предмет, Всего, Теоритические, Лабораторные, Курсовые) '; // полный алис ! values := '+ sEdit3.Text +,+ sEdit4.Text + , + sEdit5.Text + , +sEdit6.Text + , + sEdit7.Text +'; if CheckBox1.Checked then begin // тож самое fields := fields + ', Экзамены'; values := values + ', 1'; end; // вот присвоили бы эту строку переменной да вывели бы её в какой-то sEdit1 - и вопроса бы не было ... ADOCommand1.CommandText:= 'insert into ' + sEdit1.text + '(' + fields + ')' + 'values (' + values + ')'; ADOCommand1.Execute; end;

nikitos_EKB

 procedure TForm1.sButton10Click(Sender: TObject);
 var
 fields, values : string;
 begin
 fields := ' (Предмет, Всего, Теоритические, Лабораторные, Курсовые) ';
// полный алис !
 values := '+ sEdit3.Text +,+ sEdit4.Text + , + sEdit5.Text + , +sEdit6.Text + , + sEdit7.Text +';
 if CheckBox1.Checked then
 begin
// тож самое
 fields := fields + ', Экзамены';
 values := values + ', 1';
 end;
// вот присвоили бы эту строку переменной да вывели бы её в какой-то sEdit1 - и вопроса бы не было ... 
   ADOCommand1.CommandText:= 'insert into ' + sEdit1.text + '(' + fields + ')' + 'values (' + values + ')';
 ADOCommand1.Execute;

 end;

Модератор: Тема перенесена из форума "Microsoft Access".

iscrafm

Дата: 06.05.2011 00:54:49

появляется ошибка : Ошибка синтаксиса в инструкции Insert Intro

DimaBr

Дата: 06.05.2011 01:17:39

ShowMessage(ADOCommand1.CommandText)

nikitos_EKB

Дата: 06.05.2011 01:23:33

DimaBr
ShowMessage(ADOCommand1.CommandText)

ни че не понял, я просто новичек, и что мне нужно сделать то?????

DimaBr

Дата: 06.05.2011 01:29:20

перед тем как выполнит запрос на вставку данных, посмотрите на текст запроса всавив ShowMessage перед Execute

nikitos_EKB

Дата: 06.05.2011 01:34:32

DimaBr,

ну если я правильно вас понял то тогда у меня в отладчике появляется вот это:[Error] Unit1.pas(256): Record, object or class type required

DimaBr

Дата: 06.05.2011 02:47:34

И что же у вас в 256 строке ?