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
| Begin
TableDiv.Open;
if TableDiv.RecordCount = 0 Then
Begin
Tablediv.Close;
with TableTemp do // Création de la table temporaire
begin
TableType := ttParadox;
TableName := 'TempTable';
with FieldDefs do // Définition de champs de la table temporaire Div
begin
Clear; // Description des champs
Add('DivCode', ftSmallInt, 0, True);
Add('Localite', ftString, 32, True);
Add('lt', ftString, 1, True);
Add('admnr', ftString, 5, False);
Add('Div', ftSmallInt, 0, True);
Add('Commune', ftString, 25, True);
Add('Mut', ftString, 2, False);
Add('Dan2', ftString, 32, False);
Add('adm2', ftString, 25, False);
end;
CreateTable;
TableCadaTemp.TableName := 'da.txt';
BatchMoveTemp.Execute;
CreateQuery.Close; // Transfert dans TableDiv
CreateQuery.SQL.Text;
CreateQuery.SQL.Clear;
CreateQuery.SQL.Add('Insert into TableDiv (Div, Localite, Commune, DivCode) ');
CreateQuery.SQL.Add('Select Div, Localite, Commune, DivCode ' );
CreateQuery.SQL.Add('FROM TempTable;');
CreateQuery.ExecSQL;
end;
end; |
