Hi Leute
habe folgendes problem. Ich versuche mittels folgendem code Inserts abzuschießen (ca 2,5 Mio)
jedoch bekomme ich nach einer willkürlichen Zahl an erledigten Inserts ein "Timeout Expired"
denn connect mache ich wie folgt:
Delphi-Quellcode:
function connect():
string;
begin
try
CoInitialize(
nil);
Conn := TADOConnection.Create(
nil);
Conn.ConnectionString := '
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info = False;Initial Catalog=mydb;Data Source=localhost';
Conn.Connected := true;
except
on e :
exception do begin
Writeln(e.
message);
halt(1);
end;
end;
end;
anschließend mache ich den insert
Delphi-Quellcode:
function update(sQuerySQL :
string) :
string;
begin
oTmpQry := TADOQuery.Create(
nil);
try
try
oTmpQry.Connection := Conn;
oTmpQry.CommandTimeout := 5000;
oTmpQry.SQL.Text := sQuerySQL;
oTmpQry.ExecSQL;
except
on e :
exception do begin
Writeln(e.
message);
halt(1);
end;
end;
Finally
oTmpQry.free;
end;
end;
und anschließend das connect close
Delphi-Quellcode:
function close():
string;
begin
try
Conn.Close;
conn.Free;
except
on e :
exception do begin
Writeln(e.
message);
halt(1);
end;
end;
end;
mein prozedere ist wie folgt, ich lese aus einer anderen
db werte aus und bastel mir einen insert string,
und diesen schieße ich mit den obigen prozeduren in eine andere
db ab....
irgenwelche Ideen warum ich immer ein Timeout bekomme nach zB 70.000 inserts?
LG