Подскажите как правильно написать команду Update

@edsjeka · Регистрация: 01.01.2016

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

Нужно сделать команду Update, все получается кроме того, что не могу вставить дату. В Insert, там я понял как с помощью параметра вставить дату, а как это сделать в случае Update? Предпоследняя строчка кода.

var today: TDateTime;
today:=Now;
Не пойму как мне вставить today в текст запроса, если перевожу в текст, то получается несовпадение типов, если не перевожу, то SQL не понимает что такое today.

SQL
1
2
3
4
5
6
7
8
9
 'Update Cartridgi'+
     ' Set Articul ='+'"'+Edit7.Text+'"'+','+
     '     NumZayavki ='+'"'+Edit12.Text+'"'+','+
     '     IDMastera ='+IntToStr(mast)+','+
     '     IDManagerVidal =' + IntToStr(vid)+','+
     '     IDStatusa ='+IntToStr(stat)+','+
     '     Komments ="'+Memo1.Lines.Text+'"'+
     '     DateRabot = ' + DateToStr(today)+
     '   Where IDCartridga ='+IntToStr(curID);

@northener · 26.02.2016, 11:56

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

В Insert, там я понял как с помощью параметра вставить дату, а как это сделать в случае Update?

Точно так же.

@edsjeka · 26.02.2016, 13:11 **[ТС]**

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

Точно так же.

Не получается, вроде делаю точно также, но выдает ошибку синтаксиса:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
upd:='Update Cartridgi'+
      ' Set Articul ='+'"'+Edit7.Text+'"'+','+
     '     NumZayavki ='+'"'+Edit12.Text+'"'+','+
     '     IDMastera ='+IntToStr(mast)+','+
     '     IDManagerVidal =' + IntToStr(vid)+','+
     '     IDStatusa ='+IntToStr(stat)+','+
     '     Komments ="'+Memo1.Lines.Text+'"'+
     '     DateRabot = :mydate'+
     '   Where IDCartridga ='+IntToStr(curID);
     DataModule1.SQLQuery1.Close;
     DataModule1.SQLQuery1.SQL.Text:=upd;
     DataModule1.SQLQuery1.Params.ParamByName('mydate').Value:=today;
     DataModule1.SQLQuery1.ExecSQL;

Значение DataModule1.SQLQuery1.SQL.Text получается таким, вроде все верно:

SQL
1
'Update Cartridgi Set Articul ="AA023217",     NumZayavki ="",     IDMastera =4,     IDManagerVidal =1,     IDStatusa =3,     Komments ="фб SGT"     DateRabot = :mydate   Where IDCartridga =51'#$D#$A

Что у меня не правильно может быть?

@qwertehok · 26.02.2016, 13:22

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

Что у меня не правильно может быть?

вместо кучи кавычек пишите QuotedSTR()

и двойных кавычек " не должно быть - все должны быть одинарными ''

Добавлено через 36 секунд
а еще лучше все ваши значения замените на параметры

@krapotkin · 26.02.2016, 13:35

... но тогда не задавайте каждый раз SQL заново. обновляйте параметры и все

@edsjeka · 26.02.2016, 14:54 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
upd:='Update Cartridgi'+
      ' Set Articul = :myart,'+
     '     NumZayavki = :mynzay,'+
     '     IDMastera = :myidmas,'+
     '     IDManagerVidal = :myidmanv,'+
     '     IDStatusa = :mystat,'+
     '     Komments = :mykom'+
     '     DateRabot = :mydate'+
     '   Where IDCartridga ='+IntToStr(curID);
 
     DataModule1.SQLQuery1.Close;
     DataModule1.SQLQuery1.SQL.Text:=upd;
     DataModule1.SQLQuery1.Params.ParamByName('myart').Value:=Edit7.Text;
     DataModule1.SQLQuery1.Params.ParamByName('mynzay').Value:=Edit12.Text;
     DataModule1.SQLQuery1.Params.ParamByName('myidmas').Value:=IntToStr(mast);
     DataModule1.SQLQuery1.Params.ParamByName('myidmanv').Value:=IntToStr(vid);
     DataModule1.SQLQuery1.Params.ParamByName('mystat').Value:=IntToStr(stat);
     DataModule1.SQLQuery1.Params.ParamByName('mykom').Value:=Memo1.Lines.Text;
     DataModule1.SQLQuery1.Params.ParamByName('mydate').Value:=today;
     DataModule1.SQLQuery1.ExecSQL;

Все-равно все вставляется кроме даты, ошибка. Хотя в другом месте у меня такая же ситуация и дата нормально вставляется, не пойму почему.

@qwertehok · 26.02.2016, 15:03

с датами на разных СУБД косяк
возможно вместо месяца нужно не 2, а 02

@northener · 26.02.2016, 15:08

А если так

Delphi
1
'     DateRabot = Date(:mydate)'+

@edsjeka · 26.02.2016, 15:12 **[ТС]**

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

А если так

Тогда вот так:

@edsjeka · 26.02.2016, 16:37 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
upd:='Update Cartridgi'+
      ' Set Articul = :myart,'+
     '     NumZayavki = :mynzay,'+
     '     IDMastera = :myidmas,'+
     '     IDManagerVidal = :myidmanv,'+
     '     IDStatusa = :mystat,'+
     '     Komments = :mykom'+
     '     DateRabot = :mydate'+
     '   Where IDCartridga ='+IntToStr(curID);

Разобрался, не хватало запятой в конце третьей снизу строки

.
Всем спасибо за помощь!

@krapotkin · 27.02.2016, 06:51

удалено

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: показать затраченные материалы за определенный период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	26.02.2016, 13:35
	... но тогда не задавайте каждый раз SQL заново. обновляйте параметры и все 0

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,206 Записей в блоге: 3
	26.02.2016, 15:03
	с датами на разных СУБД косяк возможно вместо месяца нужно не 2, а 02 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	27.02.2016, 06:51
	удалено 0