Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2014, 10:35   #1
Александр Бутырин
Пользователь
 
Регистрация: 18.12.2010
Сообщений: 33
По умолчанию delphi+access

Здравствуйте
Проблема в следующем сделав добавление строки никак не могу ее отредактировать и удалить
ДОБАВЛЕНИЕ
Код:
procedure TForm1.Button5Click(Sender: TObject);
begin
  ADOQuery1.SQL.Text :=
      'insert into [Дилеры] (Город, Улица, [Название тт], [ФИ консультанта], '+
                  '[ФИ мерчендайзера], [№  маршрута], Дата) '+
                  'values("'+Edit1.Text+'","'+Edit2.Text+'","'+
                             Edit3.text+'","'+Edit4.Text+'","'+
                             Combobox2.Text+'",'+Combobox1.Text+', :Dt)';

  ADOQuery1.Parameters[0].Value := DateOf(DateTimePicker1.Date);
  ADOQuery1.ExecSQL;
  ADOTable1.close;
  ADOTable1.open;
end;
здесь работает
УДАЛЕНИЕ
Код:
procedure TForm1.Button5Click(Sender: TObject);
begin
  ADOQuery1.SQL.Text :=
      'delete from [Дилеры] where (Город, Улица, [Название тт], [ФИ консультанта], '+
                  '[ФИ мерчендайзера], [№  маршрута], Дата) '+
                  'values("'+Edit1.Text+'","'+Edit2.Text+'","'+
                             Edit3.text+'","'+Edit4.Text+'","'+
                             Combobox2.Text+'",'+Combobox1.Text+', :Dt)';

  ADOQuery1.Parameters[0].Value := DateOf(DateTimePicker1.Date);
  ADOQuery1.ExecSQL;
  ADOTable1.close;
  ADOTable1.open;
end;
помогите разобраться пожалуйста
Александр Бутырин вне форума Ответить с цитированием
Старый 12.01.2014, 11:14   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Внимательно ознакомься с этим источником: http://msdn.microsoft.com/en-us/libr...QL.105%29.aspx
Команда DELETE имеет совсем другой формат. Он абсолютно отличается от формата INSERT.
Особенно внимательно примеры смотри и узри в них правило WHERE
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.01.2014, 19:22   #3
Александр Бутырин
Пользователь
 
Регистрация: 18.12.2010
Сообщений: 33
По умолчанию

Если честно мало что понятно, можно по русски и если не затруднит поэтапно
Александр Бутырин вне форума Ответить с цитированием
Старый 12.01.2014, 20:11   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Можно.
Команда вставки имеет такую спецификацию:
Код:
INSERT into Таблица (Поля)
VALUES (Значения)
Команды редактирования, удаления и запроса набора отличаются. Они имеют вид:
Код:
Команда
 Список полей ( = их возможные значени)
WHERE
 Условия редактирования\удаления\выборки
Так понятно?
Delete бла бла where поле = значение.
Update бла бла where поле = значение
Select бла бла where поле = значение.
но!
insert (поля) values (значения)

узри же разницу.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.01.2014, 21:53   #5
Александр Бутырин
Пользователь
 
Регистрация: 18.12.2010
Сообщений: 33
По умолчанию

Уже понятней, спасибо
Александр Бутырин вне форума Ответить с цитированием
Старый 13.01.2014, 15:16   #6
Александр Бутырин
Пользователь
 
Регистрация: 18.12.2010
Сообщений: 33
По умолчанию

Еще такой вопрос, можно как то сделать чтобы при открывании pageconrol1 (первая вкладка)
открывалась pageconrol2 (первая вкладка) синхронизировать вкладки?
Александр Бутырин вне форума Ответить с цитированием
Старый 13.01.2014, 15:57   #7
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Код:
PageControl2.ActivePage:=PageControl2.Pages[PageControl1.TabIndex];
При условии, что количество закладок совпадает
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi и Access shananina-katya Фриланс 3 26.12.2012 00:15
БД Access и Delphi Poltev86 БД в Delphi 3 25.05.2010 09:26
БД (Delphi, Access) Arkuz БД в Delphi 2 02.10.2008 00:52
Access и Delphi Mitron БД в Delphi 6 10.01.2008 20:25
Access Delphi Yana БД в Delphi 1 04.01.2008 21:54