[ Bojan Kopanja @ 08.08.2006. 16:47 ] @
Napravio sam jednu proceduru za sljanje SQL upita bazi koja mi ne radi bas kako bi trebalo. U stvari kada idem kriz proceduru sa F7 onda mi se izvrsi sve kako treba, a kada predjem preko procedure bez breakpointa onda mi se ne izvrsi... Evo je procedura: Code: procedure IzvrsiSQL(SQLText, ConnStr: String; Param: array of String); var Query: TADOQuery; i: Integer; begin Query:= TADOQuery.Create(nil); try Query.ConnectionString:= ConnStr; Query.Close; Query.SQL.Clear; for i := 0 to 4 do begin if Param[i] <> '' then begin Query.Parameters.CreateParameter('P'+IntToStr(i+1), ftString, pdUnknown, 20, Param[i]); end; end; Query.SQL.Add(SQLText); Query.ExecSQL; finally Query.Free; end; end; Proceduri prosledim ovako parametre: Code: IzvrsiSQL('delete from BAZA where DATUM >= :P1 and DATUM <= :P2;', ADOConnection1.ConnectionString, Parametri); U promenljivoj Parametri mi se nalaze unapred ucitani parametri. Svaka pomoc je dobrodosla ![]() |