Create site free
Дубликат Paradox или dBase записи - Записи - Базы данных в Delphi - Каталог статей - Mvi - развлечения Существует ли какое-либо простое решение для Delphi-приложения, позволяющее прочесть запись из первого поля таблицы Paradox (первичный ключ) и потом обратно добавить ее в таблицу в виде новой записи?

>
Среда, 08.02.2012, 13:44
Музыка, видео, игры - MVI
Главная | Каталог статей | Регистрация | Вход
Меню сайта
Категории каталога
ADO [15]
ASCII и CSV [12]
Access [19]
Alias [24]
BDE [37]
BLOB поля [19]
Clipper [2]
DB2 [2]
DBASE и DBF [26]
Fox Pro [1]
Interbase [21]
MSSQL [13]
ODBC [10]
Oracle [19]
Paradox [28]
SQL [30]
Sybase [1]
База данных [31]
Закладки [2]
Записи [19]
Индексы [10]
Компоненты и Базы данных [11]
Модуль данных [3]
Отчеты [3]
Ошибки БД [17]
Поиск [17]
Поля [36]
Сортировка и Фильтр [6]
Таблицы [39]
Мини-чат
Наш опрос
Нужна ли возможность прослушивать музыку на нашем сайте?
Всего ответов: 67
Главная » Статьи » Базы данных в Delphi » Записи

Дубликат Paradox или dBase записи

Существует ли какое-либо простое решение для Delphi-приложения, позволяющее прочесть запись из первого поля таблицы Paradox (первичный ключ) и потом обратно добавить ее в таблицу в виде новой записи?

Вот одно "кривое" решение:


procedure TForm1.Button1Click(Sender: TObject);
var
p : CURProps;
begin
Table2.Insert;
DbiGetCursorProps(Table1.Handle,p);
Move(Table1.ActiveBuffer^,Table2.ActiveBuffer^,p.iRecBufSize);
Table2.FieldByName('ID').AsInteger := Table1.FieldByName('ID').AsInteger + 1;
Table2.Post;
end;

...это работает на том "основании", что как Table1, так и Table2 ссылаются на один и тот же табличный файл. Вы могли бы осуществить это и с единственным TTable, если сохраните содержание в активном буфере (ActiveBuffer).

Категория: Записи | Добавил: mvi (28.10.2008)
Просмотров: 141 | Рейтинг: 0.0/0 |
Всего комментариев: 0

При копировании материалов данного сайта, ссылка на него обязательна!

Имя *:
Email:
Код *:
Форма входа
E-mail:
Пароль:
Поиск
Друзья сайта
Анекдоты
Реклама
Статистика


Рейтинг@Mail.ru

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Copyright MyCorp © 2012 Хостинг от uCoz