Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
sto ne valja sa ovim kodom???
7 views
Skip to first unread message
Drhardwer
Dec 25, 2016, 2:07:39 PM12/25/16
to
procedure TForm1.Button2Click(Sender: TObject);
var
racun:integer;
begin
Upit1.SQL.Clear;
Upit1.SQL.Add('SELECT COUNT(`rkstid`) FROM rkst1');
Upit2.SQL.Clear;
Upit2.SQL.Add('SELECT MAX(`rkrgid`) FROM `rkst1`');
if Upit2.ExecSql >= 0 then begin
racun := Upit2.ExecSQL;
LabeledEdit1.Text :=IntToStr(racun +1);
end else begin
LabeledEdit1.Text :=IntToStr(racun +1);
end;
end;
var
racun:integer;
begin
Upit1.SQL.Clear;
Upit1.SQL.Add('SELECT COUNT(`rkstid`) FROM rkst1');
Upit2.SQL.Clear;
Upit2.SQL.Add('SELECT MAX(`rkrgid`) FROM `rkst1`');
if Upit2.ExecSql >= 0 then begin
racun := Upit2.ExecSQL;
LabeledEdit1.Text :=IntToStr(racun +1);
end else begin
LabeledEdit1.Text :=IntToStr(racun +1);
end;
end;
Sinisa
Jan 2, 2017, 4:01:02 AM1/2/17
to
makni navodnike, ispravi sql, napravi open - umjesto exec ...
Upit1.SQL.Add('SELECT COUNT(*) as Broj FROM rkst1');
...
Upit2.SQL.Add('SELECT MAX(rkrgid) as MaxVri FROM rkst1');
Upit2.Open;
racun := Upit2.FieldByName('MaxVri').AsInteger;
if racun>=0 then
LabeledEdit1.Text :=IntToStr(racun +1);
....
i uopće što je tvoja namjera ?
Drhardwer
Jan 5, 2017, 5:51:49 AM1/5/17
to
Hvala na postu,
uglavnom riješio sam problem...
Hvala
"Sinisa" <sin...@mail.com> wrote in message
news:o4d44h$q96$1...@ls237.t-com.hr...
uglavnom riješio sam problem...
Hvala
"Sinisa" <sin...@mail.com> wrote in message
news:o4d44h$q96$1...@ls237.t-com.hr...
0 new messages