VPF::Добавление записи в БД - Форум программистов

COOLJohn

Дата 11.1.2006, 08:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 30.12.2005

Репутация: нет
Всего: нет

Как добавить запись про пимощи программных кодов в таблицу Базы Данных (DBGrid)?

База данных - телефонный справочник, сделанная в Database Desktop.
Данная БД подрубается к моеё проги при помощи процедуры:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.TableName:='Телефонный справочник';
DataSource1.DataSet:=Table1;
DBGrid1.DataSource:=DataSource1;
Table1.Active:=true;
DBGrid1.Enabled:=false;
end;

Моя БД содержит поля:
Фамилия Имя Отчество Улица Дом Квартира Телефон

Как при помощи программного кода добавить запись, например:

Фамилия Имя Отчество Улица Дом Квартира Телефон
Новосёлов Артём Петрович Чкалова 37 52 3-61-13

Это сообщение отредактировал(а) Girder - 12.1.2006, 22:34

~FoX~

Дата 11.1.2006, 08:58 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

COOLJohn
Эээ....
Короче, давай по пунктам:
Какая база? Способ конекта к базе? Какие поля в таблице? И т.д.

--------------------

…множественность никогда не следует полагать без необходимости…

Albinos_x

Дата 11.1.2006, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

Код


// простое чтение  
  Table1.Open;  
  a:=VarToStr(Table1.FieldByName('lyuboe_pole').Value); // к примеру...  
  
 // изменение текущей записи  
  Table1.RecNo:=i //установка указателя на i-ю запись  
  Table1.Edit;  
  // значения полей i-й записи будут просто изменены на указанные  
  Table1.FieldByName('Pole1').AsString:='stroka';  
  Table1.FieldByName('Pole2').AsFloat:=3.14;  
  Table1.FieldByName('Pole3').AsInteger:=314;  
  // добавление записи в таблицу  
  
 Table1.Append;  
  // запись будет добавлена в таблицу  
  Table1.FieldByName('Pole1').AsString:='stroka_2';  
  Table1.FieldByName('Pole2').AsFloat:=3.16;  
  Table1.FieldByName('Pole3').AsInteger:=123;  
   // сохраняем добавленные/измененные данные  
  Table1.Post;  
  // закрываем таблицу  
  Table1.Close;  
 
 
 ///1.Доступ к полям может осуществляться также:  
 
   Table1.Field[0]:='stroka';  

Table1.Edit - редактирование записи  
  Table1.Append; - добавить запись  
  Table1.AppendRecord(['stroka','3.14','314']); - добавить запись и заполнить поля  
  Table1.Insert; - вставить запись  
  Table1.InsertRecord(['stroka','3.14','314']); - вставить запись и заполнить поля  
  Table1.Delete; - удалить текущую запись  
  
 Метод Post подтверждает изменения, а Cansel - отменяет  
  Table1.FlushBuffers - записывает на жесткий диск содержимое буферов БДЕ  
  Table1.ClearFields; - очищает все поля текущей записи

ну а вообще

Цитата(~FoX~ @ 11.1.2006, 08:58

)

Эээ....
Короче, давай по пунктам:
Какая база? Способ конекта к базе? Какие поля в таблице? И т.д.

такой же вопрос

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

<Spawn>

Дата 12.1.2006, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 2
Всего: 64

Теме место в Базах Данных

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »