DELETE sql

[puredeadoblivion]

Hello all,

I'm having trouble with deleting from a database, it is throwing the error ' error near DELETE', but I can's see why

Code: Pascal  [Select][+][-]

1.  else if cbAction.text='Delete' then
2.  begin
3.    SQLQuery1.close;
4.    SQLQuery1.SQL.add('DELETE FROM Deck2 WHERE Deckname = :DECKNAM');  
5.    SQLQuery1.Params.ParamByName('DECKNAM').AsString:=cbDeck.text;
6.    SQLQuery1.active:=true;
7.    SQLQuery1.execSQL;
8.    SQLQuery1.close;
9.  end;
10.  

Thanks

[paweld]

Code: Pascal  [Select][+][-]

1. else if cbAction.text='Delete' then
2.  begin
3.    if SQLQuery1.Active then
4.    SQLQuery1.close;
5.    SQLQuery1.SQL.Clear;
6.    SQLQuery1.SQL.add('DELETE FROM Deck2 WHERE Deckname = :DECKNAM');  
7.    SQLQuery1.Params.ParamByName('DECKNAM').AsString:=cbDeck.text;
8.    SQLQuery1.execSQL;
9.  end;

[goodname]

This will clear out old queries and set the new one.

Code: Pascal  [Select][+][-]

1. SQLQuery1.SQL.Text := 'DELETE FROM Deck2 WHERE Deckname = :DECKNAM';