ошибка в tFIBDataSet при использовании параметров. - БД в Delphi

Lokos · 25.05.2010, 03:29

Проблема в следующем первый код работает как положено

Код:

begin
   pic:=TJpegImage.Create;
   ms := TMemoryStream.Create;
   pic.Assign(Image1.Picture.Graphic);
   pic.SaveToStream(ms);
   Form1.pFIBDataSet1.Close;
   Form1.pFIBDataSet1.SQLs.SelectSQL.text:='UPDATE NT SET    KOL='+edit1.Text+' , "ИМЯ"='+chr(39)+edit2.text+chr(39)+',"ФОТО"=:n where KOL='+edit3.text+' and "ИМЯ"='+chr(39)+edit4.text+chr(39)+';';
  Form1.pFIBDataSet1.ParamByName('n').LoadFromStream(ms);
  Form1.pFIBDataSet1.Open;
  Form1.pFIBDataSet1.Active:=True;
  Form1.pFIBDataSet1.Transaction.Commit;
end;

А вот второй ругается на параметр n. В чем проблема я не знаю уже голову сломал

Код:

 begin
         msAddData:= TMemoryStream.Create;
         SaveInfFoto.SaveToStream(msAddData);
         //формирование запроса на обновление записи
         DM.FIBDS.Close;
         DM.FIBDS.SQLs.SelectSQL.text:='UPDATE SOTRUDNIKI SET ROLE='+chr(39)+RoleName.text+chr(39)+
         ',PAS='+chr(39)+PasUser.text+chr(39)+',"№ УДОСТОВЕРЕНИЯ"='+chr(39)+sotrNamber.text+
         chr(39)+',"ИМЯ"='+chr(39)+Name.text+',"ФАМИЛИЯ"='+chr(39)+sername.text+chr(39)+
         ',"ОТЧЕСТВО"='+chr(39)+Otchestvo.text+chr(39)+',"ТЕЛЕФОН"='+chr(39)+telefon.text+
         chr(39)+',"АДРЕС ЭЛ. ПОЧТЫ"='+chr(39)+adrespoch.text+chr(39)+',"№ АГЕНСТВА"='+
         chr(39)+adresagenstva.text+chr(39)+',"ДАТА ПРИЕМА"='+chr(39)+datapriema.text+
         chr(39)+',"ДАТА УВОЛЬНЕНИЯ"='+chr(39)+DataUvalPer+chr(39)+',"СТАТУС"='+
         chr(39)+status.Text+chr(39)+',"ОБРАЗОВАНИЕ"='+chr(39)+obrazovanie.text+chr(39)+
         ',"ДОП. ОБРАЗОВАНИЕ"='+chr(39)+dopobrzovanie.text+chr(39)+',"ПРИМЕЧАНИЕ"='+chr(39)+
         Memo1.text+chr(39)+',"ДОЛЖНОСТЬ"='+chr(39)+Dolgnost.Text+chr(39)+
         ',"ФОТО"=:n WHERE'+
         'ROLE='+chr(39)+SaveInf[13]+chr(39)+',PAS='+chr(39)+SaveInf[14]+chr(39)+
         ',"№ УДОСТОВЕРЕНИЯ"='+chr(39)+SaveInf[15]+chr(39)+',"ИМЯ"='+chr(39)+SaveInf[1]+
         chr(39)+',"ФАМИЛИЯ"='+chr(39)+SaveInf[2]+chr(39)+',"ОТЧЕСТВО"='+chr(39)+SaveInf[3]+chr(39)+
         ',"ТЕЛЕФОН"='+chr(39)+SaveInf[4]+chr(39)+',"АДРЕС ЭЛ. ПОЧТЫ"='+chr(39)+SaveInf[5]+
         chr(39)+',"№ АГЕНСТВА"='+chr(39)+SaveInf[6]+chr(39)+',"ДАТА ПРИЕМА"='+chr(39)+
         SaveInf[7]+chr(39)+',"ДАТА УВОЛЬНЕНИЯ"='+chr(39)+DataUvalPer+chr(39)+',"СТАТУС"='+
         chr(39)+SaveInf[8]+chr(39)+',"ОБРАЗОВАНИЕ"='+chr(39)+SaveInf[9]+chr(39)+
         ',"ДОП. ОБРАЗОВАНИЕ"='+chr(39)+SaveInf[10]+chr(39)+',"ПРИМЕЧАНИЕ"='+chr(39)+
         SaveInf[11]+chr(39)+',"ДОЛЖНОСТЬ"='+chr(39)+SaveInf[12]+chr(39)+';';
         DM.FIBDS.ParamByName('n').LoadFromStream(msAddData);
         //конец формирования запроса
         DM.FIBDS.open;
         DM.FIBDS.Active:=True;
         DM.FIBDS.Transaction.Commit;
      end;//конец внесения изменений

В принципе они идентичны только добавлено больше столбцов таблицы

Нашел ошибку после Where запятые заменил на and но ошибка осталась.

artemavd · 25.05.2010, 08:06

Во втором коде даже разбираться не стал, даже не стал в этой каше искать слово WHERE. Перепишите второй код с использованием функции QuotedStr вместо chr(39). Уважайте в первую очередь тех, к кому Вы обращаетесь за помощью, т.к. разбираться в такой каше мало кому из форумчан захочется.

Lokos · 25.05.2010, 08:28

Все для вас

хотя я не думаю что очень наглядней получилось

Работающий код

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
pic:TJpegImage;
  ms: TMemoryStream;
begin
pic:=TJpegImage.Create;
   ms := TMemoryStream.Create;
   pic.Assign(Image1.Picture.Graphic);
   pic.SaveToStream(ms);
 Form1.pFIBDataSet1.Close;
 Form1.pFIBDataSet1.SQLs.UpdateSQL.text:='UPDATE NT SET KOL='+edit1.Text+
' , "ИМЯ"='+QuotedStr(edit2.text)+',"ФОТО"=:n where KOL='+edit3.text+' and "ИМЯ"='+QuotedStr(edit4.text)+';';
  Form1.pFIBDataSet1.ParamByName('n').LoadFromStream(ms);
 Form1.pFIBDataSet1.Open;
 Form1.pFIBDataSet1.Active:=True;
 Form1.pFIBDataSet1.Transaction.Commit;
 end;

Код который выдает ошибку

Код:

 begin
         jpgAddData:=TJpegImage.Create;
         msAddData:= TMemoryStream.Create;
         jpgAddData.Assign(Image2.Picture.Graphic);
         jpgAddData.SaveToStream(msAddData);
         //формирование запроса на обновление записи
         DM.FIBDS.Close;;
         DM.FIBDS.SQLs.UpdateSQL.Text:='UPDATE SOTRUDNIKI SET'+
         'ROLE='+QuotedStr(RoleName.text)+
         ',PAS='+QuotedStr(PasUser.text)+
         ',"№ УДОСТОВЕРЕНИЯ"='+QuotedStr(sotrNamber.text)+
         ',"ИМЯ"='+QuotedStr(Name.text)+
         ',"ФАМИЛИЯ"='+QuotedStr(sername.text)+
         ',"ОТЧЕСТВО"='+QuotedStr(Otchestvo.text)+
         ',"ТЕЛЕФОН"='+QuotedStr(telefon.text)+
         ',"АДРЕС ЭЛ. ПОЧТЫ"='+QuotedStr(adrespoch.text)+
         ',"№ АГЕНСТВА"='+QuotedStr(adresagenstva.text)+
         ',"ДАТА ПРИЕМА"='+QuotedStr(datapriema.text)+
         ',"ДАТА УВОЛЬНЕНИЯ"='+ QuotedStr(DataUvalPer)+
         ',"СТАТУС"='+QuotedStr(status.Text)+
         ',"ОБРАЗОВАНИЕ"='+QuotedStr(obrazovanie.text)+
         ',"ДОП. ОБРАЗОВАНИЕ"='+QuotedStr(dopobrzovanie.text)+
         ',"ПРИМЕЧАНИЕ"='+QuotedStr(Memo1.text)+
         ',"ФОТО"=:foto ,"ДОЛЖНОСТЬ"='+QuotedStr(Dolgnost.Text)+
         '  WHERE ROLE='+QuotedStr(SaveInf[13])+
         ' and PAS='+QuotedStr(SaveInf[14])+
         ' and "№ УДОСТОВЕРЕНИЯ"='+QuotedStr(SaveInf[15])+
         ' and "ИМЯ"='+QuotedStr(SaveInf[1])+
         ' and "ФАМИЛИЯ"='+QuotedStr(SaveInf[2])+
         ' and "ОТЧЕСТВО"='+QuotedStr(SaveInf[3])+
         ' and "ТЕЛЕФОН"='+QuotedStr(SaveInf[4])+
         ' and "АДРЕС ЭЛ. ПОЧТЫ"='+QuotedStr(SaveInf[5])+
         ' and "№ АГЕНСТВА"='+QuotedStr(SaveInf[6])+
         ' and "ДАТА ПРИЕМА"='+QuotedStr(SaveInf[7])+
         ' and "ДАТА УВОЛЬНЕНИЯ"='+QuotedStr(DataUvalPer)+
         ' and "СТАТУС"='+ QuotedStr(SaveInf[8])+
         ' and "ОБРАЗОВАНИЕ"='+QuotedStr(SaveInf[9])+
         ' and "ДОП. ОБРАЗОВАНИЕ"='+QuotedStr(SaveInf[10])+
         ' and "ПРИМЕЧАНИЕ"='+QuotedStr(SaveInf[11])+
         ' and "ДОЛЖНОСТЬ"='+QuotedStr(SaveInf[12])+';';
         DM.FIBDS.ParamByName('foto').LoadFromStream(msAddData);
         //конец формирования запроса
         DM.FIBDS.Post;
         DM.FIBDS.Active:=True;
         DM.FIBDS.Transaction.Commit;
         msAddData.Free;
         jpgAddData.Free;
end;

artemavd · 25.05.2010, 08:39

Так попробуйте (перед where убрал ковыычку):

Код:

begin
         jpgAddData:=TJpegImage.Create;
         msAddData:= TMemoryStream.Create;
         jpgAddData.Assign(Image2.Picture.Graphic);
         jpgAddData.SaveToStream(msAddData);
         //формирование запроса на обновление записи
         DM.FIBDS.Close;;
         DM.FIBDS.SQLs.UpdateSQL.Text:='UPDATE SOTRUDNIKI SET ROLE='+QuotedStr(RoleName.text)+
         ',PAS='+QuotedStr(PasUser.text)+',"№ УДОСТОВЕРЕНИЯ"='+QuotedStr(sotrNamber.text)+
         ',"ИМЯ"='+QuotedStr(Name.text)+',"ФАМИЛИЯ"='+QuotedStr(sername.text)+
         ',"ОТЧЕСТВО"='+QuotedStr(Otchestvo.text)+',"ТЕЛЕФОН"='+QuotedStr(telefon.text)+
         ',"АДРЕС ЭЛ. ПОЧТЫ"='+QuotedStr(adrespoch.text)+',"№ АГЕНСТВА"='+
         QuotedStr(adresagenstva.text)+',"ДАТА ПРИЕМА"='+QuotedStr(datapriema.text)+
         ',"ДАТА УВОЛЬНЕНИЯ"='+QuotedStr(DataUvalPer)+',"СТАТУС"='+
         QuotedStr(status.Text)+',"ОБРАЗОВАНИЕ"='+QuotedStr(obrazovanie.text)+
         ',"ДОП. ОБРАЗОВАНИЕ"='+QuotedStr(dopobrzovanie.text)+',"ПРИМЕЧАНИЕ"='+
         QuotedStr(Memo1.text)+',"ФОТО"=:foto ,"ДОЛЖНОСТЬ"='+QuotedStr(Dolgnost.Text)+
         '  WHERE ROLE='+QuotedStr(SaveInf[13])+' and PAS='+QuotedStr(SaveInf[14])+ ' and "№ УДОСТОВЕРЕНИЯ"='+QuotedStr(SaveInf[15])+' and "ИМЯ"='+QuotedStr(SaveInf[1])+
         ' and "ФАМИЛИЯ"='+QuotedStr(SaveInf[2])+' and "ОТЧЕСТВО"='+QuotedStr(SaveInf[3])+ ' and "ТЕЛЕФОН"='+QuotedStr(SaveInf[4])+' and "АДРЕС ЭЛ. ПОЧТЫ"='+QuotedStr(SaveInf[5])+' and "№ АГЕНСТВА"='+QuotedStr(SaveInf[6])+' and "ДАТА ПРИЕМА"='+
         QuotedStr(SaveInf[7])+' and "ДАТА УВОЛЬНЕНИЯ"='+QuotedStr(DataUvalPer)+' and "СТАТУС"='+
         QuotedStr(SaveInf[8])+' and "ОБРАЗОВАНИЕ"='+QuotedStr(SaveInf[9])+
         ' and "ДОП. ОБРАЗОВАНИЕ"='+QuotedStr(SaveInf[10])+' and "ПРИМЕЧАНИЕ"='+
         QuotedStr(SaveInf[11])+' and "ДОЛЖНОСТЬ"='+QuotedStr(SaveInf[12])+';
         DM.FIBDS.ParamByName('foto').LoadFromStream(msAddData);
         //конец формирования запроса
         DM.FIBDS.Post;
         DM.FIBDS.Active:=True;
         DM.FIBDS.Transaction.Commit;
         msAddData.Free;
         jpgAddData.Free;

Lokos · 25.05.2010, 08:45

эм что то я просмотрел и не понял какую ковычку
не путаете с запятой после "ФОТО" ?

artemavd · 25.05.2010, 08:49

Нет, я смотрел только на условие WHERE. Вот здесь:

Код:

 '  WHERE ROLE='+

Lokos · 25.05.2010, 08:51

Цитата:

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

Нет, я смотрел только на условие WHERE. Вот здесь:

Код:

 '  WHERE ROLE='+

так ну я не могу ее убрать тогда delphy будет считать что это код а не текстовая информация которую нужно передать в updateSql.text

Akil · 25.05.2010, 08:53

Здраствуйте. подскажите для Delphi 7 какую Ms SQL Server поставить? заранее спасибо.

artemavd · 25.05.2010, 08:53

Какую именно Delphi пишет ошибку? Дословно и в каком месте кода.

Lokos · 25.05.2010, 08:54

Цитата:

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

Здраствуйте. подскажите для Delphi 7 какую Ms SQL Server поставить? заранее спасибо.

да наверно любую

25.05.2010, 08:06	#2
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,206	Во втором коде даже разбираться не стал, даже не стал в этой каше искать слово WHERE. Перепишите второй код с использованием функции QuotedStr вместо chr(39). Уважайте в первую очередь тех, к кому Вы обращаетесь за помощью, т.к. разбираться в такой каше мало кому из форумчан захочется. Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

25.05.2010, 08:45	#5
Lokos Форумчанин Регистрация: 29.09.2009 Сообщений: 587	эм что то я просмотрел и не понял какую ковычку не путаете с запятой после "ФОТО" ? Последний раз редактировалось Lokos; 25.05.2010 в 08:47.

25.05.2010, 08:49	#6
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,206	Нет, я смотрел только на условие WHERE. Вот здесь: Код: `' WHERE ROLE='+` Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

25.05.2010, 08:53	#9
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,206	Какую именно Delphi пишет ошибку? Дословно и в каком месте кода. Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ошибка (error code 0) при использовании libmysql.dll	kr00t	БД в Delphi	4	28.04.2011 15:58
Ошибка при использовании WorksheetFunction.VLookup	imagenable@mail.ru	Microsoft Office Excel	2	26.02.2010 12:04
Ошибка при использовании copyfile	The Best	Общие вопросы Delphi	20	22.07.2009 13:26
Ошибка List index out of bounds(0) при использовании запроса AdoQuery	ArtInt	БД в Delphi	14	15.04.2009 18:35

25.05.2010, 08:53	#8
Akil Новичок Джуниор Регистрация: 25.05.2010 Сообщений: 3	Здраствуйте. подскажите для Delphi 7 какую Ms SQL Server поставить? заранее спасибо.