VPF::Ttable - Форум программистов

hornet

Дата 23.5.2006, 20:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Суть такая!
Есть БД нужно добавлять в нее записи!!
Делал через Ttable!
table.readonly := False;
Table.edit;
Table['Number']:='56';
Table.post;

DataSouce и TableName Выбраны,как надо!
Поскажите что я делаю не правельно

skyboy

Дата 23.5.2006, 20:31 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

надо

Код


Table.INSERT

вместо

Код


Table.Edit

А то ты вместо вставки новой записи делаешь редактирование текущей(как я понимаю, первой записи в базе)

hornet

Дата 24.5.2006, 00:39 (ссылка)

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

Загрузка ...

Новичок

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

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

Пробовал не получается!! пишет типо Couldn't do with operation on an open dataset!!

DimassS

Дата 24.5.2006, 06:24 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

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

Так, для начала кинь на форму навигатор, и попробуй через него вставить запись. Если не получилось, значит у тебя партак с потключением к базе, если получилось, то скорее всего всё это надо делать с циклом
with Table1 do begin
или так

Table1.Append;
Table1.FieldByName('ID').Value:=-1;
Table1.FieldByName('Name').Value:='Петров';
Table1.Post;

И помойму он всё-таки из-за цикла ругается, если не получится, то я завтра точно найду как это делать, а то щас подзабыл немного... smile

Albinos_x

Дата 24.5.2006, 11:50 (ссылка)

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

Загрузка ...

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;  
  
//Доступ к полям может осуществляться также:  
  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; //- очищает все поля текущей записи

Это сообщение отредактировал(а) Albinos_x - 24.5.2006, 11:52

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

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

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