вопрос SQL [D7]
RomanLN © (2007-05-02 09:54:00)
как заполнить таблицу с помощью SQL запроса элементами
TStrings
procedure SQL_Insert_Opr;
begin
Q_Create := TQuery.Create(Application) ;
try
Q_Create.DatabaseName := 'sociologist';
with Q_Create.SQL do
begin
Add('insert into ' + name_table
);
....
end;
Q_Create.ExecSQL;
finally
Q_Create.Free;
end;
end;
clickmaker (2007-05-02 10:31:00) [1]
> RomanLN (02.05.07 09:54)
> Q_Create := TQuery.Create(Application) ;
нет нужды указывать Owner, если сам говоришь Q_Create.Free;
> Add('insert into ' + name_table );
обычно 'insert into ' + name_table + ' (field1, ...) values
(' + QuotedStr(value1) + ',...
PS. В любом мануале, прилагаемом к SQL серверу, описаны
синтаксисы команд.
Наверх 
ЧАТ |
Орешник |
|
