Delphi + MyDac

@Homjak · Регистрация: 03.10.2009

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

Доброе время суток уважаемы форумчане. Возникло несколько проблем юзая Делфи и MyDac.

1. Как удалить строку выделенную пользователем в DBgrid'e?
скрин:

*Строка может быть любая.

2. Добавление записи в таблицу.
Пример запроса:

SQL
1
2
INSERT INTO Clients (Name, Firstname,Adress)
VALUES ('Костя','Фамилия','123');

Надо такой(пример):

SQL
1
2
INSERT INTO Clients (Name, Firstname,Adress)
VALUES ('Edit1.Text','Edit2.Text','Edit3.Text');

Он не работает, прощу помощи, как сформировать, чтобы он работал.

Скрин главного окна:

БД: MySQL
Прикрепил исходник. Доп. компоненты: MyDac, Alphacontrols.

Заранее большое спасибо. С Уважением.

@iama · 19.09.2010, 12:21

Homjak, через квери работаете?

Добавлено через 2 минуты
1.

Delphi
1
MyQuery1.Delete;

2.

Delphi
1
2
MyQuery1.SQL.Text := 'INSERT INTO Clients (Name, Firstname,Adress)
VALUES (''' + Edit1.Text + ''',''' + Edit2.Text + ''',''' + Edit3.Text + ''')';

@Homjak · 19.09.2010, 12:48 **[ТС]**

iama, Через Table. Можно через Query.

MyQuery1.SQL.Text := 'INSERT INTO Clients (Name, Firstname,Adress)
VALUES (''' + Edit1.Text + ''',''' + Edit2.Text + ''',''' + Edit3.Text + ''')';

Делал так:
MyCommand1.SQL.Add('DELETE FROM Clients');
MyCommand1.Execute;

Это пример отправки запроса и удаления. Но он стирает всю таблицу.

Добавлено через 18 минут

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

2.

Delphi
1
2
MyQuery1.SQL.Text := 'INSERT INTO Clients (Name, Firstname,Adress)
VALUES (''' + Edit1.Text + ''',''' + Edit2.Text + ''',''' + Edit3.Text + ''')';

Скрин:

@Z3oM · 19.09.2010, 13:04

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

iama, Через Table. Можно через Query.

MyQuery1.SQL.Text := 'INSERT INTO Clients (Name, Firstname,Adress)
VALUES (''' + Edit1.Text + ''',''' + Edit2.Text + ''',''' + Edit3.Text + ''')';

Делал так:
MyCommand1.SQL.Add('DELETE FROM Clients');
MyCommand1.Execute;

Это пример отправки запроса и удаления. Но он стирает всю таблицу.

Добавлено через 18 минут

Скрин:

Я не понял ты Этот запрос Где Включаешь? В Делфе или в своей СУБД?

@Homjak · 19.09.2010, 13:33 **[ТС]**

В делфи конечно.

Скрин:

@iama · 19.09.2010, 13:37

Homjak, я написал код, который нужно выполнять в рантайме. подчеркну - это код дельфи, который возвращает нужный вам запрос.

@Z3oM · 19.09.2010, 14:03

Карочь вот так попробуй

Delphi
1
2
3
DBQuery1.Active:=false;
DBQuery1.SQL.Text:='INSERT INTO Clients (Name, Firstname,Adress) VALUES('+Edit1.Text+','+Edit2.Text+','+Edit3.Text+')';
DBQuery1.Active:=true;

первоначально в квери должен быть простенький любой запросик.
Тупо тот запрос который я те щас дал без лишних ковычек. Поробуй так как у меня, может дело в ковычках

Да И НЕ ЗАБУДЬ В КАЖДОМ EDITе ПИСАТЬ КОВЫЧКИ ОДИНАРНЫЕ =)

А если все проканает то там дело техники тупо в каждую Стринг-строку добавить в начало и конец ковычки с помощью Оператора INSERT

arni · 19.09.2010, 15:42

Привычка конструировать запросы с явным квотированием строковых литералов, особенно литералов, приходящих от пользовательского ввода, - зло, причем зло с отложенным наказанием:
- либо когда-нибудь пользователь заведет в TEdit строку с аппострофом и запрос упадет на непарности кавычек;
- либо, еще хуже, какой нибудь умник состряпает sql-injecting и на целостность данных в базе уже врятли можно будет полагаться;

От первой угрозы вас освободит использование QuotedStr() или AnsiQuotedStr(), от второй - использование переменных. В последнем случае профит будет ещё и в том, что читаемость кода существенно повысится.

p.s. Никогда не рано начать писать программы надежно и профессионально, даже если речь о банальной вузовской контрольной.

@iama · 19.09.2010, 16:15

arni, я делал на скорую руку, лишь бы работало, у себя обрабатываю строки так (билдер):

C++
1
2
3
4
5
String MQuotedStr(String s)
{
if (!s.IsEmpty()) s = StringReplace(s, (String) "'", (String) "\\'", TReplaceFlags() << rfReplaceAll);
return "'" + s + "'";
}

@Z3oM · 19.09.2010, 16:18

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

arni, я делал на скорую руку, лишь бы работало, у себя обрабатываю строки так (билдер):

C++
1
2
3
4
5
String MQuotedStr(String s)
{
if (!s.IsEmpty()) s = StringReplace(s, (String) "'", (String) "\\'", TReplaceFlags() << rfReplaceAll);
return "'" + s + "'";
}

Ну это вообще c++ или c# я ещё слабо понимаю но это не Паскаль

@iama · 19.09.2010, 16:19

Z3oM, именно поэтому я и указал в скобках, что это билдер. я показал принцип.

@Homjak · 19.09.2010, 20:34 **[ТС]**

Z3oM, Это С++

@Z3oM · 20.09.2010, 02:17

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

Z3oM, Это С++

Я уже заметил!) Помогло моё решение?

@Lord_Voodoo · 20.09.2010, 10:48

Homjak,

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

1. Как удалить строку выделенную пользователем в DBgrid'e?

вам нужно в запрос на удаление просто передать с помощью FieldByName значение ключа из источника данных для грида (таблициы или запроса)... на форуме уже масса решений...

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

Добавление записи в таблицу.

лучше используйте параметры для передачи данных... тоже решений масса - поиск вам в помощь

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

VALUES ('Edit1.Text','Edit2.Text','Edit3.Text') ;

так вы передаете просто строки, а вам нужна конкатенация строк...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@Homjak 6 / 5 / 2 Регистрация: 03.10.2009 Сообщений: 50
	19.09.2010, 13:33 [ТС]
	В делфи конечно. Скрин: 0

@iama 1360 / 988 / 119 Регистрация: 30.07.2010 Сообщений: 5,297
	19.09.2010, 13:37
	Homjak, я написал код, который нужно выполнять в рантайме. подчеркну - это код дельфи, который возвращает нужный вам запрос. 1

arni 914 / 879 / 62 Регистрация: 06.01.2010 Сообщений: 2,367 Записей в блоге: 6
	19.09.2010, 15:42
	Привычка конструировать запросы с явным квотированием строковых литералов, особенно литералов, приходящих от пользовательского ввода, - зло, причем зло с отложенным наказанием: - либо когда-нибудь пользователь заведет в TEdit строку с аппострофом и запрос упадет на непарности кавычек; - либо, еще хуже, какой нибудь умник состряпает sql-injecting и на целостность данных в базе уже врятли можно будет полагаться; От первой угрозы вас освободит использование QuotedStr() или AnsiQuotedStr(), от второй - использование переменных. В последнем случае профит будет ещё и в том, что читаемость кода существенно повысится. p.s. Никогда не рано начать писать программы надежно и профессионально, даже если речь о банальной вузовской контрольной. 0

@iama 1360 / 988 / 119 Регистрация: 30.07.2010 Сообщений: 5,297
	19.09.2010, 16:19
	Z3oM, именно поэтому я и указал в скобках, что это билдер. я показал принцип. 1

@Homjak 6 / 5 / 2 Регистрация: 03.10.2009 Сообщений: 50
	19.09.2010, 20:34 [ТС]
	Z3oM, Это С++ 0