Salam Ada contoh seperti ini : const petik : char = ''''; var mysql : String; begin

frmmaindataadmin.datasetinforecord.Close;
 mysql := 'Select * from tbl_inforecord where '+frmqueryinforecord.cmbfield1.Text+''+frmqueryinforecord.txt1.Text+''+petik+frmqueryinforecord.txtvalue1.Text+petik+''+petik+frmqueryinforecord.cmboption1.Text+petik+''+frmqueryinforecord.cmbfield2.Text+''+frmqueryinforecord.txt2.Text+''+petik+frmqueryinforecord.txtvalue2.Text+petik+' order by partnumber,store';
frmmaindataadmin.datasetinforecord.Connection := frmkonfigurasi.adoconnection;
frmmaindataadmin.datasetinforecord.CommandText := mysql;
frmmaindataadmin.datasetinforecord.Active := True;
frmmaindataadmin.datainforecord.DataSet := frmmaindataadmin.datasetinforecord;
frminforecord.gridinforecord.DataSource := frmmaindataadmin.datainforecord;

Kok query nya kalo di jalanin dan dimasukan nilai nya ngga bisa yah ?? Minta tolong pencerahannya.. Terima kasih

[foxpro:1:fecc737e17]mysql := 'Select * from tbl_inforecord where ' +frmqueryinforecord.cmbfield1.Text+''+frmqueryinforecord.txt1.Text +'' +petik+frmqueryinforecord.txtvalue1.Text+petik+''+petik +frmqueryinfore cord.cmboption1.Text+petik+''+frmqueryinforecord.cmbfield2.Text+'' +frm queryinforecord.txt2.Text+''+petik+frmqueryinforecord.txtvalue2.Text +p etik+' order by partnumber,store';[/foxpro:1:fecc737e17] waduh.. maksudnya gimana nih ? kok querynya njelimet gini. coba diterangin atau ditulis.. sebenernya kamu mau mbikin query seperti apa ? :D

mei bi (mungkin/meureun) gini maksud bro 'belaraja'... mysql := 'tampilkan semua dari tabel_inforecord dimana (field) combo1 = text1 dan (field) combo2 = text2 urut berdasar partnumber, store'

mysql := 'Select * from tbl_inforecord where ' + 
frmqueryinforecord.cmbfield1.Text+' = ' + quotedstr(frmqueryinforecord.txtvalue1.Text)+ 
' and ' + 
frmqueryinforecord.cmboption1.Text+' = '+quotedstr( frmqueryinforecord.txtvalue2.Text)+
' order by partnumber,store';

mungkin... atau mo bikin query yg gimana ? :D [/quote]

mei bi (mungkin/meureun) gini maksud bro 'belaraja'... mysql := 'tampilkan semua dari tabel_inforecord dimana (field) combo1 = text1 dan (field) combo2 = text2 urut berdasar partnumber, store'

mysql := 'Select * from tbl_inforecord where ' + 
frmqueryinforecord.cmbfield1.Text+' = ' + quotedstr(frmqueryinforecord.txtvalue1.Text)+ 
' and ' + 
frmqueryinforecord.cmboption1.Text+' = '+quotedstr( frmqueryinforecord.txtvalue2.Text)+
' order by partnumber,store';

mungkin... atau mo bikin query yg gimana ? :D

keliatannya km kan cuman ingin nganmbil parameter utk diquery, 'tanda kutip' tdk hrs km buat const langsung aja var 'String' nya itu km isi query, dan utk kutip bisa km pake cara quotedstr() ato penggabungan 'concat' sample: mysql:= concat('Select from tbl_inforecord where '+frmqueryinforecord.cmbfield1.Text+' like ',chr(39),PARAMETER YG DIAMBIL,chr(39),... ato := 'Select from tbl_inforecord where '+frmqueryinforecord.cmbfield1.Text+' = '++quotedstr(PARAMETER YG DIAMBIL)....

keliatannya km kan cuman ingin nganmbil parameter utk diquery, 'tanda kutip' tdk hrs km buat const langsung aja var 'String' nya itu km isi query, dan utk kutip bisa km pake cara quotedstr() ato penggabungan 'concat' sample: mysql:= concat('Select from tbl_inforecord where '+frmqueryinforecord.cmbfield1.Text+' like ',chr(39),PARAMETER YG DIAMBIL,chr(39),... ato := 'Select from tbl_inforecord where '+frmqueryinforecord.cmbfield1.Text+' = '+quotedstr(PARAMETER YG DIAMBIL)....

salam, tanda kutip itu perlu karena untuk membedakan mana yang integer dan mana yang string dalam query nya. Karena di program nya itu saya memdekan query nya kalo nilai di editbox itu berupa string atau integer. cmboption itu items nya ' AND' dan 'OR', saya ngga mau ngambil AND dan OR nya langsung, tapi bisa dipilih di combo box. Query nya selalu error di cmboption tersebut. Sebener nya programnya panjang, itu point nya aja. Terima kasih