[Вовайн]

код конпки

Код:

procedure TForm10.Button1Click(Sender: TObject);
var
str:string;
begin
str:='insert into заказы ([Название],[Цена]) values ('+
                      dbgrd1.Columns[1].ToString +',"'+
                      dbgrd1.Columns[5].Tostring +')';
                      showmessage(dbgrd1.Fields[1].value);
                      showmessage(dbgrd1.Fields[5].value);
form69.ADOQuery1.SQL.Add(str);
form69.ADOQuery1.ExecSQL;

form69.ADOTable1.Active:=true;

form69.ADOTable1.Requery;
form69.DBGrid1.Refresh;
end;

MAD: Предупреждение! Оформляйте код правильно.

база acsess там создана пустая таблица заказы с полями название и цена.

[Вовайн]

Проще так. Вот проект. Ненужные формы удалил.
На первой форме значек кошелька это кнопка заказы. Все основные соединения на datamodule1. form10 это где кнопка добавить в заказ, которая добавляет на 69 форму, но ошибка. Помогите решить пожалуйста. Ошибку писал выше

http://rghost.ru/private/7StT9sm2W/c...2b434ba06a3e25

[SCrat.ORS]

Код:

str:='insert into заказы ([Название],[Цена]) values ('+
                      dbgrd1.Columns[1].ToString +',"'+
                      dbgrd1.Columns[5].Tostring +')';

Кавычку в конце забыл

Код:

str:='insert into заказы ([Название],[Цена]) values ('+
                      dbgrd1.Columns[1].ToString +',"'+
                      dbgrd1.Columns[5].Tostring +'")';

[icWasya]

Для начала - посмотреть, что получается в итоге в переменной str.
На вскидку - значение поля [Цена] - заключено в кавычки,
А значение поля [Название] - нет.

Второе.
очищается ли SQL перед вызовом этой функции?
Может сразу

Код:

form69.ADOQuery1.SQL.Text:=str;

[Вовайн]

Сообщение от SCrat.ORS

Кавычку в конце забыл

Код:

str:='insert into заказы ([Название],[Цена]) values ('+
                      dbgrd1.Columns[1].ToString +',"'+
                      dbgrd1.Columns[5].Tostring +'")';

Теперь такая ошибка

[Вовайн]

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

Для начала - посмотреть, что получается в итоге в переменной str.
На вскидку - значение поля [Цена] - заключено в кавычки,
А значение поля [Название] - нет.

Второе.
очищается ли SQL перед вызовом этой функции?
Может сразу

Код:

form69.ADOQuery1.SQL.Text:=str;

Как я понял не очищается. Так прописать? Как добавить очистку?

Код:

form69.ADOQuery1.SQL.Text:=str;

str:='insert into Заказы(Название,[цена]) values('+
                      dbgrd1.Columns[1].ToString +',"'+
                      dbgrd1.Columns[5].Tostring+')';
                      //showmessage(dbgrd1.Fields[1].value);
                      //showmessage(dbgrd1.Fields[4].value);
form69.ADOQuery1.SQL.Add(str);
form69.ADOQuery1.ExecSQL;
form69.ADOTable1.Requery;
form69.DBGrid1.Refresh;
end;

Теперь такая ошибка, если прописать, что что выше в коде.

Если есть возможность гляньте пожалуйста выше там я выложил исходник. Делал на XE7

[SCrat.ORS]

Код:

form69.ADOQuery1.Edit;
form69.ADOQuery1.SQL.Clear;
str:='insert into заказы ([Название],[Цена]) values ('+
                      dbgrd1.Columns[1].FieldName +',"'+
                      dbgrd1.Columns[5].FieldName +'")';
                      showmessage(dbgrd1.Fields[1].value);
                      showmessage(dbgrd1.Fields[5].value);
form69.ADOQuery1.SQL.Add(str);
form69.ADOQuery1.Post;
form69.ADOTable1.Active:=True;
form69.ADOTable1.Requery;
form69.DBGrid1.Refresh;

Вот так вот правильнее будет.
И опять таки. если ты делаешь запрос на

Код:

',"'+dbgrd1.Columns[5].Tostring+')'

То на выходе ты получаешь ,"....) - Кавычку открыл для значения, а закрываешь её скобкой чтоли?

Ну и код у тебя... черт ногу сломает. Далее оно ругается на невозможность совершить сие действие на закрытом DateSet.... А вот где он у тебя находится... Нее батенька, разбирайся сам... Я 50 юнитов исправил только что бы скомпилировать. Дальше думать какой DateSet к чему относится, какая таблица и запросы что от куда и куда - это мне уже влом разбираться.
И вообще наведи в коде и формах порядок. Там почти все формы вообще удалить можно, и сделать динамическое создание форм.
И ещё, я бы отказался использовать в БД названия таблиц и полей на Кириллице... - Неизбежно рано или поздно приведет к проблемам.
Ну и от AlphaSkin тоже лучше отказаться... Прикольно конечно, но я думаю не много матёрых программистов пользуются подобными вещами, Все эти свистелки-перделки в пустую расходуют ресурсы.

[Вовайн]

Спасибо.Не в коде лень порядок наводить ну и льфаскрины нужны мне. Это просто курсач.

[Вовайн]

Вот такая теперь ошибка
adoquery1: cannot perform this operation on a closed dataset.

[SCrat.ORS]

Сообщение от Вовайн

Вот такая теперь ошибка
adoquery1: cannot perform this operation on a closed dataset.

Сообщение от SCrat.ORS

Далее оно ругается на невозможность совершить сие действие на закрытом DateSet.... А вот где он у тебя находится... Нее батенька, разбирайся сам... Я 50 юнитов исправил только что бы скомпилировать. Дальше думать какой DateSet к чему относится, какая таблица и запросы что от куда и куда - это мне уже влом разбираться.

Я же Написал.
А про альфаскин я говорил к тому, что вряд ли кто-то их устанавливает себе, и в итоге ты даешь проект с ними, а он и открыть его не может и скомпилировать тоже. В итоге приходится все это удалять-ковырять. И чаще всего это заканчивается - "Да ну его нафиг" и помощи не последует в решении проблемы.

[Вовайн]

Вот удалил скины http://rghost.ru/private/7xjdWmTVc/7...14e5df2dcc629b и еще кто поможет с компонентом TRyMenu. Файлы в проект скинул. Нужно просто увеличить шрифт в main menu.

[Вовайн]

Помогите пожалуйста. Скоро сдавать курсач. По софту только это осталось.