Rozdělení mysql příkazu – Delphi – Fórum – Programujte.com

Zdravím

Mam vytvořen script Select , který je ale dlouhý protože si potřebuji vypsat hodně tabulek a porovnat

Delphi mi nevezme tak velký příkaz do jednoho řádku

procedure TForm1.Button7Click(Sender: TObject);
begin
 with adoQuery1 do
  begin
  Active:=False;
      sql.clear;
     adoQuery1.SQL.Add  -- a zde bude dlouhý příkaz

Jak mohu příkaz rozdělit na více řádku aby se mi načetl jako jeden celý

děkuji

#1 krpik
a nebylo by lepší volat proceduru SQL s kodem místo tohohle strašnýho vkládání textu ?

nainstaluj si MS SQL management studio ... a volej procedury přímo z delphi ne ? předávání parametrů a vyzvedávání neni tak hrozná práce

#2 jerry
Děkuji

Touhle cestou už bych asi nechtěl jít

program mam už hotový tohle je poslední příkaz co mi tam chybí. Mam to jen pro moje malé podnikání

Dlouhý příkaz co mam je potom rozdělení DPH pro  účetní

zaklad a daň z 15 a 21 % DPH, to mi krásně rozepíše a pak bych k tomu přidal uložení do CSV nebo txt 

#3 krpik
přiznám se že nevim, nidky sem SQL příkaz nemusel dělit, pokud sem používal SQL tak sem to používal metodou popsanou v první odpovědi protože volat proceduru SQL a získat zpět výsledky a příp. chybové kody mi připadalo nejjednodušší. zkus nějaké specializované SQL forum

#3 krpik
v Delphi se dlouhé řádky dají normálně rozdělit na více bez problémů, jen je třeba brát v úvahu strukturu té řádky, u tebe jde v púodstatě o dlouhý string, tam je podstatné mít řetězec na každíém řádku uzavřený, máš 2 možnosti

sql := 'text1.....................kkk'+
       ' text2......................ed';

nebo 

sql := 'text1.....................kkk';
sql := sql + ' text2......................ed';

jen dej pozor na mezery podle toho jak budeš řádek dělit aby se ti v tom výsledku nespojily slova z konce jednoho a začátku dalšího řádku,

Další variantou je nadefinovat si kusy sql do constant a pak je jen pospojovat.

Já to řeším přes ty constanty, v řetězcích mám pak kombinaci speciálních znaků kam následně pomocí funkce doplňuji argumenty.

#5 MilanL
Děkuji tohle mi pomohl.

A náhodou nevíš jak tam napsat CREATE or Replace view `view_trzba_karty` ?

Pořád se mi to nedaří 

Mam zde dva selecty

CREATE or Replace view `view_trzba_karty` 

as select --- a teď mam select , který mi vyčte do tabulky view_trzba_karty vypočet DPH

za tím mám druhý select ,který vyčte z tabulky view_trzba_karty datum a  DPHačka na dvě desetina místa

Nechávám si to vyčíst celé do mema abych věděl jak to čte program to si zkopíruji do heidisql a tam mi script funguje

#6 krpik
To je jeden dotaz nebo dva za sebou? V Delphi je to docela rozdíl, protože každý SQL dotaz musíš poslat samostatně.

... view `view_trzba_karty` ... Vidíš tam ten pleonasmus? To by se při programování stávat nemělo.

Spojování konstant je dobré, protože kompilátor to spojí do jednoho stringu už při překladu.

#7 Kit
jsou to dva jeden vytvoří tabulku ze selectem a druhy mi z ní vypíše hodnoty

CREATE or Replace view `view_platby_karty`
 as select
 DATE_FORMAT(s.closed,"%d.%m.%Y") datum, sum(case when s.storno=1 then 0 else CelkovaCena end) as trzba_celkem, 
SUM(case when s.storno=1 then 0 ELSE s.CelkovaCena/(100+s.SAZBA)*100 END) as zaklad_DPH, 
SUM(CASE WHEN COALESCE(s.SAZBA,0)=0 THEN s.CelkovaCena/((100+s.SAZBA)/100) ELSE 0 END )as bez_DPH, 
SUM(CASE WHEN s.SAZBA=21 THEN (s.CelkovaCena/1.21)*(s.SAZBA/100) ELSE 0 END )as dph21, SUM(CASE WHEN s.SAZBA=15 
THEN (s.CelkovaCena/1.15)*(s.SAZBA/100) ELSE 0 END )as dph15, SUM(CASE WHEN s.SAZBA=10 THEN (s.CelkovaCena/1.10)*(s.SAZBA/100) 
ELSE 0 END )as dph10, SUM(CASE WHEN s.SAZBA=21 THEN s.CelkovaCena-(s.CelkovaCena/1.21)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph21,
SUM(CASE WHEN s.SAZBA=15 THEN s.CelkovaCena-(s.CelkovaCena/1.15)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph15, 
SUM(CASE WHEN s.SAZBA=10 THEN s.CelkovaCena-(s.CelkovaCena/1.10)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph10 
from platby P inner join p_polozky s where p.id_ucty= s.id_ucty

and p.druh_platby_id =  '6'
and s.closed<>"0000-00-00%" AND s.storno<>1 AND DATE_FORMAT(s.closed,"%Y-%m-%d %H:%i") BETWEEN '2018-01-01'  AND  '2018-12-12'
 GROUP BY YEAR(s.closed), MONTH(s.closed),DAY(s.closed),s.id_ucty ;

píšu to jako

adoQuery2.SQL.text :='CREATE or Replace view `view_trzba_karty`';
               adoQuery2.SQL.text := adoQuery2.SQL.text + ' as select';

atd.

----------------

Teď dalším selectem dělám už sumy u DPH a vypíšu

 napsal bych to pod další button 

zde bych potom doplnil

Var
  i: integer;
  strT: string;
  slst: TStringList;

adoQuery1.SQL.Clear;
  adoQuery1.SQL.Add('select....

.slst:= TStringList.Create;
Try
  With DBGrid1.DataSource.DataSet Do
  begin
          First;
    while not Eof do
    begin
      strT:= ';'+Fields[0].AsString+';';
      for i:= 1 to FieldCount-1 do
        strT:= strT+';'+Fields[i].AsString+';';
      slst.Add(strT);
      Next;
    end;
          First;
  end;
  slst.SaveToFile('C:\data\test.xls');
Finally
  slst.Free;
End;

ale i když nechám ten první script pod jedním buttonem tak mě to nevytvoří tabulku a i když ten script by měl být správný

#8 krpik
stáhni si MS SQL Management Studio asi 2014 nebo 2016 a vyzkoušej si ten příkaz v něm ...

tu databázi si v něm otevři, heslo máš ne ?

#9 jerry
Ja jedu na počítači na mysql 5 , to bude vadit ne?

#8 krpik
Něco mi říká, že jsi zapomněl escapovat apostrofy.

#10 krpik
aha mysql 5, hm tak v tom sem nikdy nedělal .. budeš asi muset na nějaký forum pro mysql ...

#10 krpik
teď sem se kouknul a pro mySQL je tohle

https://www.mysql.com/products/workbench/

ahoj, koukal jsem na ty dotazy, máš to podle mě zbytečně složitě s těmi všemi podmínkami IF a CASE When

vytvářecí bych zjednodušil, ne doklad na řádku se všemi sazbami, ale doklad a sazba na řádek, do jednoho bych to pak dal bud selectem nebo až následně při převádění dat do stringlistu.

každopádně si můžeš zjednodušit alespoň storno (je třeba vyzkoušet, jde o to jaký typ je storno a jak je v dotazech bráno)

sum(case when s.storno=1 then 0 else CelkovaCena end) as trzba_celkem,      
 . - nemělo by zde být s.CelkováCena může vyhazovat chybu?
sum(CelkovaCena*s.storno) as trzba_celkem

podobně

SUM(case when s.storno=1 then 0 ELSE s.CelkovaCena/(100+s.SAZBA)*100 END) as zaklad_DPH,
SUM((s.CelkovaCena/(100+s.SAZBA)*100)*s.storno) as zaklad_DPH,

každopádně, když si děláš pomocnou tabulku v DB, tak bych ten celej dotaz rozsekal, do té tabulky bych udělal jednoduché nasoučtování (datum, účet, sazba, sum_celkem[,sum_základ,sum_dph]) tučně je group by, z toho pak selectem sazby do 1 řádky. případně bych ani nedělal tu pomocnou tabulku, ale rovnou select a zpracování řádky Datum-účet bych řešil v Delphi. Jen nevím jak by to bylo rychlostně, ale myslím, že vzhledem ke složitosti toho tvého dotazu bych o moc pomalejší nebyl.

#14 MilanL
Děkuji již jsem dneska dopoledne na to ještě mrknul a našel odpověd

  adoQuery2.SQL.Text :='CREATE or Replace view view_platby_karty ' + - dal jsem za každý řádek pro spojení scriptu

                    ' as select DATE_FORMAT

dále jsem si tam přidal ADOQuery2.ExecSQL(); a jede to 

asi to není nejlepší řešení přestal mi fungovat IF ELSE kdyby mi to nic nenačetlo tak abych věděl

     if AdoQuery2.IsEmpty then
     ShowMessage('Nic nenalezeno')

              else
     ShowMessage('Načteno');

to už je ale jiný příběh 

Děkuji všem za pomoc