- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
if not DM.For_Akc_Base_Update.InTransaction then
DM.For_Akc_Base_Update.StartTransaction;
Close;
SQL.Clear;
SQL.Add('insert into Bank (BNAME, full_name, bik, ks, inn, rkc,postind,postcity,postaddr,telef ) values ');
SQL.Add('('''+edName.Text+''', '''+mFull_Name.Text+''', ');
SQL.Add(' '''+edBik.Text+''', ');
SQL.Add(''''+edKS.Text+''', '''+edInn.Text+''', ');
SQL.Add(''''+edRkc.Text+''', '''+edInd.Text+''', ');
SQL.Add(''''+edCity.Text+''', '''+edAdr.Text+''', ');
SQL.Add(''''+edTel.Text+''' )');
ExecSQL;
DM.For_Akc_Base_Update.Commit;
DM.Bank.Close;
DM.Bank.Open;
Принял проект. Начал смотреть. Вот так вот добавляют запись в таблицу. И так по всему проекту.
minusator41 12.03.2014 11:41 # −13
DBdev 12.03.2014 11:41 # +7
minusator41 12.03.2014 11:42 # −13
roman-kashitsyn 12.03.2014 11:43 # +3
minusator41 12.03.2014 11:49 # −11
TarasB 12.03.2014 11:54 # −1
minusator41 12.03.2014 11:58 # −11
TarasB 12.03.2014 11:55 # −1
minusator41 12.03.2014 11:59 # −10
Vasiliy 12.03.2014 12:10 # −3
minusator41 12.03.2014 12:44 # −10
eth0 12.03.2014 18:15 # +1
minusator41 12.03.2014 18:17 # −8
DBdev 13.03.2014 10:30 # +1
bormand 13.03.2014 10:55 # −1
roman-kashitsyn 13.03.2014 11:05 # 0
bormand 13.03.2014 11:20 # 0
> Вдруг понадобится вставить либо все записи либо ни одной?
BEGIN ... COMMIT уже выкинули из стандарта?
roman-kashitsyn 13.03.2014 11:34 # +1
Ну хотя условия переиспользовать прям этот код не было.
bormand 13.03.2014 11:55 # 0
Vasiliy 13.03.2014 13:45 # 0
bormand 13.03.2014 13:52 # 0
eth0 13.03.2014 19:14 # 0
bormand 13.03.2014 19:44 # 0