Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.11.2006, 17:44
Tru Tru вне форума
Прохожий
 
Регистрация: 14.11.2006
Сообщения: 2
Репутация: 10
По умолчанию добавление данных из Delphi в таблицу Access

Вот такая проблема.
Есть одня таблица (Таблица 1) и в ней три поля (Name, Position, Birth_date). На форме есть три поля для ввода edit2.text,edit3.text, edit4.text и кнопка при нажитии которой считываются данные из полей edit2,3,4 в таблицу. Как все это прописать, подскажите пожалуйста.
И что при этом случае записывать в свойстве ADOQuery1 SQL.
Заранее спасибо1
Ответить с цитированием
  #2  
Старый 15.11.2006, 06:29
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Код:
procedure addtotable
var
  C:TADOQuery
begin
  C:=TADOQuery.Create(nil);
  with C do
    begin
      Connection:=MainConnection; //твое соединение с базой
      SQL.Text:='UNSERT INTO [Таблица 1] (Name, Position, Birth_date) '+
                     'VALUES (:Name, :Position, :Birth_date)';
      Parameters.ParseSQL(SQL.Text,True);
      Parameters.ParamByName('Name').AsString:=Edit2.Text;
      Parameters.ParamByName('Position').AsInteger:=StrToInt(Edit3.Text);
      Parameters.ParamByName('Birth_date').AsDateTime:=StrToDate(Edit4.Text);
      try
        ExecSQL;
      except
        ShowMessage('Error');
      end;
    end;
  C.Free;
end;

Примерно так
Ответить с цитированием
  #3  
Старый 15.11.2006, 15:35
Tru Tru вне форума
Прохожий
 
Регистрация: 14.11.2006
Сообщения: 2
Репутация: 10
По умолчанию

Спасибо, конечно, но что то у меня не получается...
Ответить с цитированием
  #4  
Старый 11.12.2006, 15:19
ilang ilang вне форума
Новичок
 
Регистрация: 11.12.2006
Сообщения: 68
Репутация: 10
По умолчанию

вместо Unsert попробуй Insert
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:46.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter