tadi sore.. di salah satu milis saya menjawab pertanyaan seperti ini, bener ga ya?

--- suhar hari <.......@y...> wrote: > saya merupakan user baru dalam menggunakan program > applikasi delphi, sehingga banyak yang saya > tidak/belum saya ketahui. salah satunya adalah > penulisan sintax dalam delphi dengan menggunakan sql. > bagai manakah aturan-aturan penulisan sintax tersebut, > seperti tanda petik dll. > atas jawabanya saya ucapkan banyak terima kasih. untuk penulisan dalam suatu variabel string (biasa) sVariabel := 'ini tulisan biasa'; sVariabel := 'ada kata yang di "petik" dua'; sVariabel := 'cara nulis do''a'; //-- munculnya: do'a sVariabel := 'kata' + ' ' + 'disambung'; sedangkan untuk penulisan skrip SQL, juga tergantung pada database server yang digunakan, karena adanya perbedaan dukungan terhadap tanda ' (petik satu), " (petik dua) yang berbeda. kalau saya biasa nulis gini: sSQL := formatSQL( 'SELECT namafield FROM namatable WHERE nama="joko"'); fungsi FormatSQL berfungsi untuk mengubah tanda " (petik dua) menjadi tanda yang disesuaikan dengan DB-server yang bersangkutan. jika ternyata DB-server yg digunakan tidak support ", fungsi tersebut mengubah tanda " menjadi ' defini pengubahan " dilakukan di awal progam berjalan, sehingga tidak memberatkan aplikasi.

demikianlah.

mas delphy.. - fungsi formatSQL saya cari di Help Delphi gak nemu.. :( - trus cara mengetahui/pengecekan ke DB-Server support apa ndak itu gimana? - biasanya utuk penyesuaian yg spt itu saya menggunakan Parameter: with Query1 do begin with SQL do begin Clear; Add('SELECT * FROM tabelku'); Add('WHERE nama =:namaku'); end; Query1.ParamByName('namaku').Value:= 'joko'; Query1.Open end;

format penulisa SQL bukan di help delphi-nya, tapi di help database-server yang digunakan. skrip bisa langsung dicoba jalankan dulu di SQL-manager yag bersangkutan: mssql -> mssql enterprise manager mysql -> mysql fron atau phpmyadmin tuliskan: SELECT namafield FROM namatable WHERE nama="joko" dan SELECT namafield FROM namatable WHERE nama='joko' naahh...... mana yang berfungsi berarti itu yang di support. beberapa dataserver ada yang mendukung kedua-duanya.

yang saya cari di help delphi itu dari pernyataan yg ini:

sSQL := formatSQL( 'SELECT namafield FROM namatable WHERE nama="joko"');

trus biasanya saya suka melihat ke source dari fungsi tsb untuk mengetahui proses pengubahannya..menarik.. setelah percobaan di SQL-manager dilakukan...: kayaknya proses pengubahan dari fungsi itu mungkin cukup rumit ya, karena ada banyak yang mesti disesuaikan seperti 'DATE', 'FLOAT', dll...

oooo...... itu skrip saya sendiri ;) bukan default delphi. paling sederhana bisa dibuat gini:

const
  csDelim              = '''';
....
function formatSQL( psSQL:string):string;
var
  ls                   : string;
begin
  ls                   := stringreplace( psSQL, '"', csDelim, [rfReplaceAll]);
  ... // koding-koding yang lain
  result               := ls;
end;

tujuan fungsi diatas, mengubah semua penulisan dengan tanda " (petik dua) menjadi ' (petik satu) dengan asumsi, database server yg digunakan hanya support ' (tanda petik satu) saja terutama memudahkan kita menulis sintak dalam delphi. coba bandingkan:

sSQL := formatSQL( 'SELECT namafield FROM namatable WHERE nama="joko"'); 

dengan

sSQL := 'SELECT namafield FROM namatable WHERE nama=''joko'''; 

seringkali para delphy sering kesulitan menulis ' (tanda petik satu) dobel dobel ;) ini baru nulis skrip yang sederhana, bagaimana dengan skrip yang jlimet2 .. ;( banyak make tanda ' (tanda petik satu berulang2) tetap boleh pake ParamByName tapi rekan2 di KIOSS tidak terbiasa menggunakan ParamByName