[Solved] Error delete di Paradox @ Delphi

Ini buat yg menggunakan Paradox yaa..

FireBird ? MySQL? MsACESS ? ODBC ? ADO ? MyBASE ? Maaf ya ini bukan untuk anda !   jng promosi DB anda dsni ya.. xixixixi

Kalau anda mengalamai error, waktu execute Muncul Error Invalid use of keyword token: blablabla.

Ada apa gerangan..

Syntaxnya begini ni..

quJual.SQL.Clear;
quJual.SQL.Add(‘DELETE FROM : PTBSEMJUAL WHERE KodeBrg = Null ‘);
quJual.ParamByName(‘PTBSEMJUAL’).AsString:=tbSemJual.TableName;
quJual.ExecSQL;

Ternyata ada Script SQLnya yang tidak cucok, kalau mau tabel yang digunakan bisa dinamis pakailah variabel bukan parameter..

Dan script ini yang works for me

quJual.Close;
quJual.SQL.Clear;
SqlText := ‘DELETE FROM ‘ + NamaTabel + ‘ WHERE KodeBrg IS NULL‘;
quJual.SQL.Add(SqlText);
quJual.ExecSQL;

Tentu SqlText & NamaTabel didefinisikan dulu di prosedure tersebut sebagai variabel bertipe String;

Var SqlText, NamaTabel:string;

appreciate to bro Do..

2 Comments

Comments RSS TrackBack Identifier URI