[TaHdeR]

Подскажите пожалуйста можно ли имея компоненты Button, Query, Memo, DataSource и DBGrid вводить SQL запросы в поле Memo и при нажатии кнопки присваивать свойству Query1.SQL значение запроса с компонента Memo?

Query1.Active:=false;
Query1.SQL:=Memo1.Lines;
Query1.Active:=true;

Если это может работать, то какие различия от обычного синтаксиса mySQL ?

Наперед благодарна..

[s0Creator]

Сообщение от TaHdeR

Query1.SQL:=Memo1.Lines;

помоему правильней

Код:

1	Query1.SQL.Text:=Memo1.Lines.Text;

Сообщение от TaHdeR

Если это может работать, то какие различия от обычного синтаксиса mySQL ?

не совсем понял
(а если не может работать? )
и причем тут Memo и синтаксис?

[Rosenkrantz]

Сообщение от s0Creator

помоему правильней

Код:

На самом деле правильней присваивать именно SQL, поскольку в реализации присвоения (в TQuery.SetQuery) делается Disconnect и вызываются BeginUpdate/EndUpdate.

[s0Creator]

Сообщение от Rosenkrantz

На самом деле правильней присваивать именно SQL, поскольку в реализации присвоения (в TQuery.SetQuery) делается Disconnect и вызываются BeginUpdate/EndUpdate.

Полностью согласен
В качестве оправдания:

Код:

1 2 3 4

<b>procedure</b> TADOQuery.SetSQL(<b>const </b>Value: TStrings); <b>begin</b>   FSQL.Assign(Value); <b>end</b>;

Disconnect происходит и при

Код:

1	Query1.Active:=false;

BeginUpdate/EndUpdate происходит в:

Код:

1	<b>procedure </b>TStrings.SetTextStr(<b>const </b>Value: string);

Зато если идти через TStrings.Assign
BeginUpdate/EndUpdate происходит дважды
(и в вызываемой AddStrings(TStrings(Source)); )
(плюс еще один в в TQuery.SetQuery)
а также еще переустановка всех параметров TStrings:

Код:

1 2 3 4 5 6 7 8

Clear;       FDefined := TStrings(Source).FDefined;       FNameValueSeparator := TStrings(Source).FNameValueSeparator;       FQuoteChar := TStrings(Source).FQuoteChar;       FDelimiter := TStrings(Source).FDelimiter; ... AddObject(Strings[i], Strings.Objects[i]); ...

хотя думаю особой разницы в производительности не заметим