Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 13.05.2008, 17:43   #1
xDjarx
Пользователь
 
Аватар для xDjarx
 
Регистрация: 22.04.2008
Сообщений: 16
По умолчанию Удаление, обновление записей из MySQL таблицы

Какими командами можно удалять и обновлять нужную запись из таблицы MySQL, из под Delphi? Использую для соединения с таблицей компонент ZTable.
xDjarx вне форума Ответить с цитированием
Старый 13.05.2008, 19:59   #2
xDjarx
Пользователь
 
Аватар для xDjarx
 
Регистрация: 22.04.2008
Сообщений: 16
По умолчанию

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

procedure TForm2.Button3Click(Sender: TObject);
var i: integer;
begin
ZTable1.TableName := Edit2.Text;
Table1.DatabaseName:='C:\Program Files\Borland\Delphi7\Projects\2';
Table1.TableName := Edit1.Text;
Table1.Active:=true;
ZConnection2.Connected:=true;
ZTable1.Active:=true;
Table1.First;
while not Table1.Eof do
begin
while not ZTable1.Eof do
begin
if ((ZTable1.Fields[0].Value = Table1.Fields[0].Value) and
(ZTable1.Fields[1].Value = Table1.Fields[1].Value)and
(ZTable1.Fields[2].Value = Table1.Fields[2].Value))then
begin
ZTable1.Edit;
for i:=0 to 8 do
begin
ZTable1.Fields[i].Value := Table1.Fields[i].Value;
end;
end
else
begin
ZTable1.Insert;
for i:=0 to 8 do
begin
ZTable1.Fields[i].Value := Table1.Fields[i].Value;
end;
end;
ZTable1.Next;
end;
ZTable1.Post;
Application.ProcessMessages;
Table1.Next;
end;
xDjarx вне форума Ответить с цитированием
Старый 14.05.2008, 12:36   #3
xDjarx
Пользователь
 
Аватар для xDjarx
 
Регистрация: 22.04.2008
Сообщений: 16
По умолчанию

Всё, разобрался сам, нашёл ошибки.
xDjarx вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одновременное удаление записей в разных таблицах Lkhasa БД в Delphi 9 16.12.2010 13:21
Удаление повторяющихся записей gavrylyuk Microsoft Office Excel 3 28.06.2008 07:10
Удаление записей Blackmore БД в Delphi 2 26.05.2008 07:18
Удаление записей Arsgun БД в Delphi 7 09.07.2007 10:56
Добавление и удаление записей в Listview Scorpeon Компоненты Delphi 0 08.06.2007 22:09


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS