Delphi 7
FireBird 2.1 itd UIB commponents
moj kod
Code:
with frmProdaja.tblProdaja do
begin
First;
while not Eof do
begin
Delete;
end;
Next;
with frmProdaja.tblProdaja do
begin
First;
while not Eof do
begin
Delete;
end;
Next;
dobijem gresku
List index out of bounds(-1)
probao sam i sa SQL ali ne ide
Code:
tblProdaja.Close;
tblProdaja.SQLSelect.Clear;
tblProdaja.SQLSelect.Add('DELETE * FROM Prodaja');
tblProdaja.Open;
tblProdaja.Close;
tblProdaja.SQLSelect.Clear;
tblProdaja.SQLSelect.Add('DELETE * FROM Prodaja');
tblProdaja.Open;
ne ide
Hvala na odgovoru
Edit: Dodati code tagovi
[Ovu poruku je menjao chachka dana 02.09.2008. u 23:36 GMT+1]