misii... :? saya pernah pake ttable pake paradox.. dengan kode begini... : procedure TForm1.Button1Click(Sender: TObject); begin query1.Close; query1.prepare; query1.ParamByName ('NamaBarang').value := '%'+TNamaBarang.Text+'%'; query1.Open; end; di query1 nya gini.. Select * from tBLsTOKbARANG Where Tblstokbarang.namabarang like:NamaBarang {dengan kondisi param di query1 "namabarang" adalah string} nah.. sekarang saya ubah database saya pake mysql (kan pengen maju gitu..) tapi masalahnya pas di buat gini : clientdataset1.Close; clientdataset1.prepare; clientdataset1.ParamByName ('NamaBarang').value := '%'+TNamaBarang.Text+'%'; clientdataset1.Open; kok gak jalan... mungkin temen2 ada solusi yang terbaik buat saya... misal saya mau nampilin daftar barang, barang yang tampil sesuai dengan saya ketikkan ... yah seperti pricelist gitu lah.. terimakasih atu mah... atas responnya.. saya tunggu... :)

bos ada pesan errornya gak iar kita bisa liat dan kasih solusinya

pas sqldataset1nya tak aktifin katanya gini... "you have an error in your syntax. check the manual that correspondens to your MySQL server version for the right syntax to use near 'LIKENULL' at line 1 " .. gimana tuh??

bos ada pesan errornya gak iar kita bisa liat dan kasih solusinya

"you have an error in your syntax. check the manual that correspondens to your MySQL server version for the right syntax to use near 'LIKENULL' at line 1 " ..

mungkin tidak di ijinkan untuk data yg kosong.... kalau seperti ini... ('NamaBarang').value := QuotedStr('%'+TNamaBarang.Text+'%'); bisa ga'?... sory...coz aq pas ga' pakai delphi...jd ga' coba dlu...

yaa.. itu. kayak yang diatas... btw saya pake delphi7 trus databasenya pake mysql4.0 trus...kalo yang lama databasenya pake paradox, tak ganti soalnya suka eror. saya kan ndak suka yang error error gitu... akibatnya ya gini...malah gak jalan... :lol:

tadi di sms sama delphinya pesen errornya " list index out of bonds (0) " procedure TForm1.Button1Click(Sender: TObject); begin sqldataset1.active:=false; //sqldataset1.CommandText:='select from tbarang where tbarang.namabarang like:namabarang '; //sqldataset1.CommandText:='select from tbarang WHERE namabarang LIKE AN'; sqldataset1.CommandText:=QuotedStr('%'+TNamaBarang.Text+'%'); sqldataset1.Params[0].DataType :=ftstring; sqldataset1.Active :=true; Clientdataset1.Active :=false; Clientdataset1.Active :=true; end;

Sory kalo salah, ini analisa saja procedure TForm1.Button1Click(Sender: TObject); begin sqldataset1.active:=false; //sqldataset1.CommandText:='select from tbarang where tbarang.namabarang like:namabarang '; //sqldataset1.CommandText:='select from tbarang WHERE namabarang LIKE AN'; [ADA KESALAHAN SYNTAX , disini ga ada perintah SELECT ] sqldataset1.CommandText:=QuotedStr('%'+TNamaBarang.Text+'%'); [list index out of bonds (0) --> terjadi karna ga ada array parameternya -- lihat CommandText-nya] sqldataset1.Params[0].DataType :=ftstring; sqldataset1.Active :=true; Clientdataset1.Active :=false; Clientdataset1.Active :=true; end; [SEPERTINYA] sqldataset1.CommandText:='select from tbarang where tbarang.namabarang like:namabarang '; sqldataset1.Params[0].DataType :=ftstring; //coba mencoba SQLdataset1.Params[0].Item := QuotedStr('%'+TNamaBarang.Text+'%') atau SQLdataset1.SQLParambyName('NamaBarang').value := QuotedStr('%'+TNamaBarang.Text+'%'); KALO GA BISA PAKE TANDA '%' PAKE TANDA YG LAIN '*' ATAU '&' atau ga usah pake tanda apa-apa coba dulu di MYSQL nya kalo ga bisa LIKE: diganti =:

Sory kalo salah, sudah lama ga pake delphi hehehe

klo masalah ini

sqldataset1.active:=false; //sqldataset1.CommandText:='select from tbarang where tbarang.namabarang like:namabarang '; //sqldataset1.CommandText:='select from tbarang WHERE namabarang LIKE AN'; sqldataset1.CommandText:=QuotedStr('%'+TNamaBarang.Text+'%'); sqldataset1.Params[0].DataType :=ftstring; sqldataset1.Active :=true; Clientdataset1.Active :=false; Clientdataset1.Active :=true;

kan commmand textnya di disabel ( di jadiin comment ) ya wajar klo di eksekusi error. trus coba kalo searching g'usah pake param by name, langsung aja gini sqldataset1.CommandText:='select * from tbarang WHERE namabarang LIKE'+QuotedStr('%'+search_text+'%' )'; search_text bisa diambil dari edit text atau yg laen