3つのデータフィールドを持つ単純な挿入ステートメントがあります。主キーでも自動インクリメントでもないTag_ID、簡単なDateTime Nowを文字列として保存するタイムスタンプ、および単純なdevide計算を含むfloat値。
SQLサーバーは実際にはローカルですが、後でローカルネットワークにない別のマシンに配置されます。今、私は10.000エントリで25.8秒を取得します。これをどのように改善できますか?
私のコードは次のようになります:
procedure TForm1.testMssql(Datensaetze: integer);
var
i: integer;
before,after,result: real;
begin
before := GetTickCount;
for i:= 0 to Datensaetze do
begin
try
query.DataBase := conn;
query.UsePrimaryKeyAsKey:=false;
query.SQL.Text := 'insert into speedTest(TagID,timestamp,Value) values(:tag_id,:timestamp, :value)';
query.Params.ParamByName('tag_id').AsInteger := i ;
query.Params.ParamByName('timestamp').AsString := DateTimeToStr(Now);
query.Params.ParamByName('value').AsFloat := ((i*2) / 55);
query.ExecSQL;
SQLTransaction1.Commit;
except
on E: Exception do
ShowMessage(E.Message);
end;
end;
after := GetTickCount;
result := (after - before)/1000;
Memo1.Text := FloatToStr(result);
end;