VPF::RxLib и ADO! - Форум программистов

Fast

Дата 29.3.2006, 06:19 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как сделать чтобы ADoTable фильтровал таблицу, отфильтрованные данные заносил в RxMemoryData1 потом очищал все записи Adotable потом заносил всё из RxMemoryData1 обратно в Adotable ?
Сидел но ничего не получилось =(
Вот творчество =)

Цитата

begin
ADOTable2.Filter:='Дата>='''+RzDateTimeEdit1.Text+'''';
ADOTable2.Filtered:=True;
RxMemoryData1.LoadFromDataSet(ADOTable2,0,lmCopy);
ADOTable2.Edit;
ADOTable2.ClearFields;
RxMemoryData1.SaveToDataSet(ADOTable2,0);
end;

К сожалению не работает =(

И ещё один вопрос.
Допустим есть поле ID как мне максимальное значение этого поля занести в String ?
smile

sexton

Дата 29.3.2006, 11:49 (ссылка)

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

Загрузка ...

sexton=Пономарь (eng)

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

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

Начнем не по порядку.

Цитата(Fast @ 29.3.2006, 06:19

)

Допустим есть поле ID как мне максимальное значение этого поля занести в String ?
smile

Приходит два варианта на ум - или делать

Код


SELECT MAX(ID) AS MAXID FROM TABLE

А потом

Код


String Temp := ADOQuery.FieldByName('MAXID').Value.AsString;

Или сделать перебор по столбцу методами датасета. Это может будет быстрее.
Насчет всего остального... Похоже хочешь написать упаковку xBase через ADO?

Если так, то вот тут товарищ MFoxer дал хороший ответ поэтому поводу.

Это сообщение отредактировал(а) sexton - 29.3.2006, 12:15

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

Поставить +

ЖЖ
Рассылка Рассылок

Fast

Дата 29.3.2006, 15:33 (ссылка)

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

Загрузка ...

Шустрый

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

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

А что такое Xbase ? smile

Может сдесь есть по коду какаянибудь ошибка ????
Потомучто строчки у меня просто копируются smile

Fast

Дата 29.3.2006, 17:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

Я уже на правельном пути =)
Уже пишет что невозможно вставить пустую строку smile

Только незнаю где там пустые строки!

Цитата

procedure TMainForm.RzDateTimeEdit1Change(Sender: TObject);
begin
ADOTable2.Filter:=Дата>='''+RzDateTimeEdit1.Text+'''';
ADOTable2.Filtered:=True;
RxMemoryData1.Edit;
RxMemoryData1.ClearFields;
RxMemoryData1.LoadFromDataSet(ADOTable2,0,lmAppend);
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='Delete From Таблица1 where ID>=0';
ADOQuery2.ExecSQL;
RxMemoryData1.SaveToDataSet(ADOTable2,0);
ADOTable2.Requery();
end;

sexton

Дата 29.3.2006, 17:31 (ссылка)

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

Загрузка ...

sexton=Пономарь (eng)

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

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

Цитата(Fast @ 29.3.2006, 06:19

)

ADOTable2.ClearFields;

Дык читаем справку!

Цитата

Call ClearFields to erase the current contents of all fields in the active record. If the dataset is not in either dsInsert or dsEdit state, ClearFields throws an exception.

в АКТИВНОЙ записи однако!
Попробуй лучше:

Цитата

DeleteRecords
Deletes one or more records in the dataset.

enum TAffectRecords { arCurrent, arFiltered, arAll, arAllChapters };
void __fastcall DeleteRecords(TAffectRecords AffectRecords = arAll);

Description
Use DeleteRecords to delete one or more records from the recordset the ADO dataset component represents.

If the recordset does not support record deletions, an exception is thrown. Use the Supports method to determine whether the recordset supports deleting records.

If the dataset was opened in batch update mode, the records are only marked for deletion. Apply the batch deletions by calling the UpdateBatch method. If the dataset is not in batch update mode, the records are immediately removed from the base table.

AffectRecords is a TAffectRecords constant that determines which records are deleted by DeleteRecords. The default value for the AffectRecords parameter is arAll, which causes all records in the recordset to be deleted.

Option Meaning

arCurrent Only the deletes the current record.
arFiltered Only deletes records accessible through the current filter.
arAll Deletes all records in the recordset.
arAllChapters Deletes records in all chapters (ADO chapters)

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

Поставить +

ЖЖ
Рассылка Рассылок

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