sohib2 delphier, ane mau mohon bantuannya yaa... :lol: ane lgi buat aplikasi client server pakai remote data module. lalu remote module ane isi dgn adoconnecion, adotable/adoquery, dan datasetprovider. selanjutnya datamodule milik client ane isi dgn DComconnection, clientdataset, dan datasource. pd saat ane mengeksekusi printah pada property commandtext milik clientdataset seperti berikut ini with DM2.ClientQueryAdmin do begin close; Params.ParamByName('Us').AsString:=EdUser.Text; Params.ParamByName('pass').AsString:=string1; Params.ParamByName('Jab').AsString:=ComboBoxJabatan.Text; CommandText:=''; CommandText :='Select jabatan, User, password From Admin'+ ' Where jabatan = :jab and User = :Us'+ ' and password = :pass'; open; end; muncul pesan error "CommandText Changes are not allowed ". padahal parameter nya jg uda di create dan ane jg uda coba dengan perintah sederhana seperti 'Select * from admin'. tp ga bisa jg, ada yg bisa bantu? nb : string1 = encrypt dari password

klo gini gimana : with DM2.ClientQueryAdmin do begin close; CommandText :='Select jabatan, User, password From Admin'+ ' Where jabatan = :jab and User = :Us'+ ' and password = :pass'; Params.ParamByName('Us').AsString:=EdUser.Text; Params.ParamByName('pass').AsString:=string1; Params.ParamByName('Jab').AsString:=ComboBoxJabatan.Text; open; end; :D

sama aja bang ozan, kayaknya clientdataset nya ga mau mengeksekusi query. sampai puyeng nih... :shock:

ternyata Tclientdataset.commandtext ga bisa dipakai buat query . aneh... :?: jadi ane pakai filter with DM2.ClientQueryAdmin do begin Active:=false; filter:=' (Jabatan = '''+ComboBoxJabatan.Text+''') and (User = '''+EdUser.text+''') and (Password = '''+String1+''')'; filtered:=true; Active:=true; end; if DM2.ClientQueryAdmin.recordcount = 0 then showmessage('Login Failed');

Dari pesan error "CommandText Changes are not allowed " maka kesimpulan yang dapat diambil adalah --- jangan merubah CommandText. Bagaimana jika anda membuat satu query sendiri di remote data module yang mana nilai CommandText nya sudah berisi sesuai yang anda inginkan yaitu 'Select jabatan, User, password From Admin Where jabatan = :jab and User = :Us and password = :pass'. Sehingga di aplikasi client anda tinggal setting parameter saja?

@_lmz tapi intinya emang Clientdataset ga mau mengeksekusi query mas. pada remote module ana isi AdoConnection, Adotable, dana datasetprovider pada aplikasi client ana taruh Dcomconnection, clientdataset dan datasource nya. intinya ane cuma mau menjalankan perintah di client pakai query language mas. gimana ya mas, karena ada perintah lain yg harus dijalankan dengan query language.

Salam, COba pake AdoDataset nya, itu bisa langsung kok, kan udah ada koneksi nya, nanti hasilnya di masukkan de dalam tabel pake DataSource.

var
   mysql : String:
begin
   Adodataset.Close;
   mysql :='Select........where.....And....';
   Adodataset.connection = AdoConnection;
   Adodataset.coomandtext := Mysql
   Adodataset.Active := True;
   Datasource.Dataset := AdoDataset;
   //kalo mau di tampilin di grid, tambahin aja
   DBGrids.Datasource := Datasource;
end;

Coba dilihat option DatasetProvidernya apakah dikasih untuk merubah command text

Seperti yang bro @zeinix bilang Coba di set poAllowCommandText pada Options DataSetProvider menjadi TRUE

@belajaraja kalo buat aplikasi client kayaknya ga bs @zeinix & @kaka_delphi ane ga perhatiin klo di disitu ada options dataset provider.... :D thanks bro entar ane coba di rumah