• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Чтение данных для запроса с визуальных компонентов дельфи

  • Автор темы Brunetka
  • Дата начала
B

Brunetka

Привет всем!Помогите, кто чем может!Проблема пустяковая, но без ее решения никак!
Пишу sql-запрос, который "берет" данные из компонента edit (edit.tetx), но запрос просто не видит, что в этих edit-ах записано и возвращает пустые значения.
[codebox]Zapros := Name_SQL+TBL +' VALUES('+Edit1.Text+','+Edit2.Text+');'[/codebox]
В чем здесь может быть дело?может быть надо выставить какие-нибудь свойства? :)
помогите, пожалуйста, буду очень признательна!
 
F

FBUS

попробуй так
var a,b:string;

a:=edit1.text;
b:=edit2.text;
Zapros := Name_SQL+TBL +' VALUES('+a+','+b+');'

но честно говоря твой вариант должен работать

еще бывает полезно вывести сам текст запроса... типа после твоей строчки написать
ShowMessage('Zapros');

З.Ы. Не увидел Update в начале запроса.. непонятно что он делает (запрос)
 
B

Brunetka

Запрос один на добавление:
Name_SQL := 'INSERT INTO ',
другой на редактирование:
Name_SQL := 'UPDATE ' + TBL + ' SET '
TBL- глобальная переменная, разные таблицы.
Пишу в апострофак, потому что текст запроса сначала вывожу в listbox...
Здесь вообще что-то странное творится: у меня инфа из edit читается как бы с отставанием на 1 шаг...пишу 1, нажимаю показать запрос, пишет пустое значение...пишу 2, нажимаю, пишет 1...

querry читает запрос из listboxчитает его и исполняет...

И еше, правильно ли я посылаю запрос на исполнение?(первый раз этим занимаюсь ;) ):
[codebox]procedure TForm1.Button2Click(Sender: TObject);
begin
WITH DataModule2.IBQuery13 do begin
SQL.Clear;
SQL := ListBox1.Items;
ExecSQL;
END
end;[/codebox]
Всем откликнувшимся огромное спасибо!!!!!!!!!
 
F

FBUS

Чиркани в личку, я не понял что ты хочешь от проги.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!