1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
| var
a,b,c:integer;
begin
Query3.Close;
Query3.sql.clear;
Query3.sql.Add('SELECT CCode,CTitle,CSurname,CName,CStatus,CAdress1,CAdress2,CAdress3,CPostCode,CCity,CCountry,CEMAIL,CInterest,CLContact,CTotMoney,CWeb,CPhone1,CFax,CMobile');
Query3.SQL.Add('From Clients');
Query3.Open;
a:=0;
b:=0;
c:=3;
Query3.first;
while not (Query3.Eof) or (b<5000) do
begin
//showmessage(inttostr(a)+' '+inttostr(b)+' '+inttostr(c));
a:=a+1;
if a=c then
begin
b:=b+1;
c:=c+3;
Query4.Close;
Query4.sql.clear;
Query4.sql.Add('INSERT INTO ClientsBis');
Query4.sql.Add('values (:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o,:p,:q,:r,:s,:t,:u,:v)');
Query4.Params[0].AsFloat:=Query3.fields[0].AsFloat;
Query4.Params[1].AsString:=Query3.fields[1].AsString;
Query4.Params[2].AsString:=Query3.fields[2].AsString;
Query4.Params[3].AsString:=Query3.fields[3].AsString;
Query4.Params[4].AsString:=Query3.fields[4].AsString;
Query4.Params[5].AsString:=Query3.fields[5].AsString;
Query4.Params[6].AsString:=Query3.fields[6].AsString;
Query4.Params[7].AsString:=Query3.fields[7].AsString;
Query4.Params[8].AsString:=Query3.fields[8].AsString;
Query4.Params[9].AsString:=Query3.fields[9].AsString;
Query4.Params[10].AsString:=Query3.fields[10].AsString;
Query4.Params[11].AsString:=Query3.fields[11].AsString;
Query4.Params[12].AsString:=Query3.fields[12].AsString;
Query4.Params[13].AsDateTime:=Query3.fields[12].AsDateTime;
Query4.Params[14].AsFloat:=Query3.fields[14].AsFloat;
Query4.Params[15].AsString:=Query3.fields[15].AsString;
Query4.Params[16].AsString:=Query3.fields[16].AsString;
Query4.Params[17].AsString:=Query3.fields[17].AsString;
Query4.Params[18].AsString:=Query3.fields[18].AsString;
Query4.ExecSQL;
end;
if b=5000 then
showmessage(inttostr(b));
Query3.next;
end; |
