Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

params и расход памяти [D7, MSSQL]

zig © (2005-10-03 23:49:00)
всем привет
народ подскажите что в ниже приведенном примере может жрать память ??

есть прога (в которой используется ента проседура) при работе она отжирает не мало памяти примерно 100 кб на каждое выполнение прочедуры, которое освобождается тока при закрытии всей проги .если процедуру заблокировать по средством exit (первая строка) то отжирание памяти прекращается

P.S. dataset.Params.Free;ситуации не меняет

procedure Tscanuser.dbupdate;
var sql:string;
begin
// exit;
if info.activport<>'' then
begin // set на все поля

info.compname:= 'test';
sql:='update complist set compname= :compname, activport= :activport where ip=:ip if @@ROWCOUNT = 0 '+
'insert into complist (ip,compname,activport,id) values (:ip,:compname,:activport,:id)';
(:ip,:compname,:username,:activport,:id)';

DataSet.CommandText:=sql;

DataSet.Params.ParamByName('ip').AsString:=info.ip;
DataSet.Params.ParamByName('compname').AsString:=info.compname;
DataSet.Params.ParamByName('activport').AsString:=info.activport;
DataSet.Params.ParamByName('id').Asinteger:=0;
end
else
begin
sql:='select ip from complist where ip=:ip if @@ROWCOUNT <> 0 '+
'update complist set activport= :activport where ip= :ip';
DataSet.CommandText:=sql;

DataSet.Params.ParamByName('activport').AsString:='notconnect';
end;
DataSet.EXECSQL;
// dataset.Params.Free;
end;

evvcom (2005-10-04 09:43:00) [1]
и на фиг каждый раз запрос переписывать?

sniknik (2005-10-04 00:38:00) [2]
смысла в селекте нет т.к. выполняется EXECSQL, он "закрыт" апдейтом, вполне возможно, что рекордсет "теряется".
это кроме параметров.

еще. отформатируй код наконец, без красивого/понятного кода, что угодно можно потерять, а не только 100кб. ;)
и переходи на нормальные компоненты... dbExpress для MSSQL уже "неатуален". ;)

Плохиш (2005-10-04 00:04:00) [3]
Этот ужас ещё и работает? 8-O Оно даже не откомпилируется!

> sql:='update complist set compname= :compname, activport=
> :activport where ip= :ipif @@ROWCOUNT = 0 '+
> 'insert into complist (ip,compname,activport,id) values
> ( :ip,:compname,:activport,:id)';

Это два разных параметра, с остальными аналогично.

> sql:='select ip from complist where ip=:ip if @@ROWCOUNT
> <> 0 '+
> 'update complist set activport= :activport where ip= :ip';
>
> DataSet.CommandText:=sql;
>
> DataSet.Params.ParamByName('activport').AsString:='notconnect';
>

А остальные параметры дядя Пушкин устанавливать должен?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »