переработать метод SetActive компонента TADOQuery

← →
DenisWW © (2005-01-25 12:03) [0]

Добрый день мастера

Задача переработать метод SetActive компонента TADOQuery

Вот до чего я добрался

procedure TADOQueryRKO.SetActive(Value: Boolean);
var
MyField, MyFields: TStrings;
begin
……
if Value then Begin
if Value and (not Active) then try
Screen.Cursor := crSQLWait;
MyField:=TStringList.Create;
MyFields:= TStringList.Create;

………

// Тут в переменную MyField заносятся данные, которые я должен вернуть через ADO. 1 запись = 1 строка.
// В MyFields описание и количество столбцов
// Люди дайте пример как мне грамотно заполнить ADO!!!!! или принципы, или что ни будь!!!Помогите!!!!

????????????????????????????

finally
MyFields.Free;
MyField.Free;
Screen.Cursor := crDefault;
end
end else inherited SetActive(Value);
end;

← →
Ольга (2005-01-25 12:22) [1]

Это что самоцель -
> переработать метод SetActive компонента TADOQuery
?
Конкретизируйте задачу.
Что за метод SetActive? Что-то я не встречалась с таким.

← →
Соловьев © (2005-01-25 12:26) [2]

>Задача переработать метод SetActive компонента TADOQuery
ну обьяви свой класс на его основе, и вперед...

> // Тут в переменную MyField заносятся данные, которые я должен
>вернуть через ADO. 1 запись = 1 строка.
> // В MyFields описание и количество столбцов
> // Люди дайте пример как мне грамотно заполнить ADO!!!!! или >принципы, или что ни будь!!!Помогите!!!!
Читать до посинения: http://www.delphikingdom.com/asp/itemq.asp?mode=1&itemid=128

← →
DenisWW © (2005-01-25 12:29) [3]

писал приложение используя компонент ADOQuery
теперь я пытаюсь изменить способ доступа к БД
хочу переписать компонент дабы он конектился к веб клиенту

ответ от клиента я получаю как описал выше.
теперь надо правильно заполнить recordset как я понимаю

← →
denisww © (2005-01-25 12:33) [4]

>Задача переработать метод SetActive компонента TADOQuery
ну обьяви свой класс на его основе, и вперед...

с этим проблем нет
как заполнить правильно RecordSet?

← →
Соловьев © (2005-01-25 12:35) [5]

...
ADOQuery.Recordset := ADOCommand.Execute;
...

← →
Соловьев © (2005-01-25 12:39) [6]

>хочу переписать компонент дабы он конектился к веб клиенту
т.е.?

← →
denisww © (2005-01-25 12:40) [7]

а вот это мне ничего не говорит
к моему сожалению

← →
Соловьев © (2005-01-25 12:42) [8]

[2]

← →
denisww © (2005-01-25 12:45) [9]

как мне заполнить имеющимися данными RecordSet???
может я неправильно вопрос задал?

← →
denisww © (2005-01-25 14:55) [10]

помогите!!!

← →
denisww © (2005-01-25 14:59) [11]

Требуется переписать ADOQuery
дабы он возвращал мои данные находящиеся в MyField и MyFields

← →
Ольга (2005-01-25 15:49) [12]

Что вы имеете ввиду под "переписать ADOQuery"?
ADOQuery должен читать откуда-то данные по запросу.
Вы хотите, чтобы ADOQuery читал данные из MyField (???) или создать текст запроса (к чему?), читая MyFields?

я хочу чтобы ADOQuery читал данные из MyField

← →
Ольга (2005-01-26 06:54) [14]

ADOQuery не предназначен для чтения из TStringList
Это идея фикс. Придумайте другое решение.

Предложите пожалуйста технологию!!
я переписываю ADO потомучто поменялся источник .
раньше я получал данные из MSQL
теперь через веб сервис
данные он передаёт в виде длинной строки
а поля разделены запятой
как мне быть?

> Предложите пожалуйста технологию!!
> я переписываю ADO потомучто поменялся источник .
> раньше я получал данные из MSQL
> теперь через веб сервис
> данные он передаёт в виде длинной строки
> а поля разделены запятой
> как мне быть?
с этого надо было начинать, в таком виде задача имеет элементарное решение, до этого был бред больного диплодока (потому и вымерли, что самцы аналогично с самками разговаривали на предмет размножения... ;о))).

посмотри хелп по ClientDataSet - CreateDataSet, там пример, то же самое можно делать и с ADODataSet (просто примера в хелпе на методе нет)
так вот не подключая ADODataSet ни к какому конекту (оторванный датасет) создаеш у него рекордсет нужной структуры как в примере и заполняеш его из своей строки... и даже переопределять ничего не нужно (хотя это дело хозяйское).

спасибо
дельно

переработать метод SetActive компонента TADOQuery Найти похожие ветки