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
| with Donnees.QPPInsert do
Begin
SQL.Text:= ('insert into TCAL_VIC_PHYS');
SQL.Add('(VIC_PHYS_YEAR, VIC_PHYS_ORDER, VIC_PHYS_CODE_PROV, VIC_PHYS_VIC_NUM, ');
SQL.Add('VIC_PHYS_LNAME, VIC_PHYS_FNAME, VIC_PHYS_NAT, VIC_PHYS_STREET, ');
SQL.Add('VIC_PHYS_HOUSE_NR,VIC_PHYS_HOUSE_BOX, VIC_PHYS_POSTCODE, VIC_PHYS_CITY, ');
SQL.Add('VIC_PHYS_COUNTRY,VIC_PHYS_TEL, VIC_PHYS_DAT_BIRTH, VIC_PHYS_DEATH, ');
SQL.Add('VIC_PHYS_GENRE, VIC_PHYS_MAR_STAT,VIC_PHYS_CONT_MAR, VIC_PHYS_HUSWI_NUM, ');
SQL.Add('VIC_PHYS_HUSWI_LN, VIC_PHYS_HUSWI_FN,VIC_PHYS_ACC_NR1, ');
SQL.Add('VIC_PHYS_ACC_NR2, VIC_PHYS_ACC_NR3, VIC_PHYS_BEN_LNAME, ');
SQL.Add('VIC_PHYS_BEN_FNAME, VIC_PHYS_IND_SEND, VIC_PHYS_LANG, VIC_PHYS_BSTREET, ');
SQL.Add('VIC_PHYS_BHOUSE_NR, VIC_PHYS_BHOUSEBOX, VIC_PHYS_BPOSTCODE, ');
SQL.Add('VIC_PHYS_BCITY,VIC_PHYS_BCOUNTRY, VIC_PHYS_BTEL, VIC_PHYS_MAND_NOM, ');
SQL.Add('VIC_PHYS_MAND_PRENOM,VIC_PHYS_MAND_GENRE, VIC_PHYS_MAND_RUE, ');
SQL.Add('VIC_PHYS_MAND_HOUSE_NR, VIC_PHYS_MAND_HOUSEBOX,VIC_PHYS_MAND_CITY, ');
SQL.Add('VIC_PHYS_MAND_COUNTRY, VIC_PHYS_MAND_QUALITY, VIC_PHYS_MAND_CODEPOST, ');
SQL.Add('IBAN) ');
SQL.Add('values ');
SQL.Add('(''' + DBEdit31.Text + ''', ''' + DBEdit30.Text + ''', ''' + DBEdit29.Text + ''', ''' + DBEdit28.Text + ''', ');
SQL.Add('''' + DBEdit1.Text + ''', ''' + DBEdit2.Text + ''', ''' + DBEdit9.Text + ''', ''' + DBEdit3.Text + ''', ');
SQL.Add('''' + DBEdit4.Text + ''', ''' + DBEdit5.Text + ''', ''' + DBEdit6.Text + ''', ''' + DBEdit7.Text + ''', ');
SQL.Add('''' + DBEdit8.Text + ''', ''' + DBEdit34.Text + ''', ''' + DBEdit10.Text + ''', ''' + DBEdit11.Text + ''', ');
SQL.Add(dbl1 + ', ' + dbl2 + ', ' + dbl3 + ', ' ''' + DBEdit17.Text + ''', ');
SQL.Add('''' + dbl1 + ''', ');
SQL.Add('''' + DBEdit18.Text + ''', ''' + DBEdit19.Text + ''', ''' + DBEdit14.Text + ''', ');
SQL.Add('''' + DBEdit15.Text + ''', ''' + DBEdit16.Text + ''',''' + DBEdit22.Text + ''', ');
SQL.Add('''' + DBEdit23.Text + ''', N, ''' + DBEdit67.Text + ''', ''' + DBEdit20.Text + ''', ');
SQL.Add('''' + DBEdit21.Text + ''', ''' + DBEdit27.Text + ''', ''' + DBEdit24.Text + ''', ');
SQL.Add('''' + DBEdit25.Text + ''', ''' + DBEdit26.Text + ''', ''' + DBEdit35.Text + ''', ''' + mand1 + ''', ');
SQL.Add(' + mand2, + mand9, + mand3, ');
SQL.Add(' + mand4, + mand5, + mand7, ');
SQL.Add('Belgique, + mand8, + mand6, ');
SQL.Add('''' + DBEdit74.Text + ''') ');
ShowMessage(Donnees.QPPInsert.Text);
End;
Donnees.QPPInsert.ExecSQL; |
Partager