| Author |
Message |
agusantoso |
| Location: |
|
Post subject: [Help]Gagal Search Data (Muncul peringatan)
 Posted: 08/Aug/2011 16:19
|
|
onNewBie
Joined: 08-Aug-2011
Posts: 3
Status: Offline
|
|
halo master delphi dimanapun berada.. 
saya kan lagi bikin program kecil2an, pakai delphi 7, databasenya access
nah, kemarin saya membuat fasilitas pencarian data/ searchnya gitu,,
tapi kok muncul ginian ya
ini koding kecil saya
Code:
procedure Tbarang.bCariClick(Sender: TObject);
begin
DM.tbarang.Filtered:=True;
If ComboBox1.ItemIndex=0 then
DM.tbarang.Filter:='Nama Barang='+QuotedStr(Edit1.Text)
else if ComboBox1.ItemIndex=1 then
DM.tbarang.Filter:='Kode Barang='+QuotedStr(Edit1.Text)
else if Edit1.Text='' then
Application.MessageBox('Masukkan data yang dicari','Informasi',MB_OK)
else
ShowMessage('Kosong');
end;
gimana ya biar bisa jalan..apa ada yang salah dengan program saya..
mohon bantuannya senior, mungkin ini pertanyaan kuno, tapi saya bener bingung.. 
trims, heheh...ee |
|
|
| |
|
|
|
 |
|
mas_kofa |
| Location: New York Arto |
|
|
Post subject:
Posted: 09/Aug/2011 18:09
|
|
onElite
Joined: 18-Mar-2006
Posts: 1753
Location: New York Arto
|
|
|
|
|
|
|
agusantoso |
| Location: |
|
|
Post subject:
Posted: 09/Aug/2011 22:47
|
|
onNewBie
Joined: 08-Aug-2011
Posts: 3
Status: Offline
|
|
|
mas_kofa wrote:
mungkin di saat yg bersamaan ada (program) yang lain yg buka itu file access....
jadi yang perlu diperbaiki yang mana ya mas kofa 
itu perasaan nyambungnya udah bener, apa gara koding simpannya yang gak saya kasih true false kali ya...
bingung ni.. |
|
|
| |
|
|
|
|
|
ianhade |
| Location: |
|
|
Post subject:
Posted: 10/Aug/2011 11:00
|
|
onIntermediate
Joined: 30-Jul-2007
Posts: 51
Status: Offline
|
|
code : pascal If ComboBox1.ItemIndex=0 then DM.tbarang.Filter:='Nama Barang=' QuotedStr(Edit1.Text) else if ComboBox1.ItemIndex=1 then DM.tbarang.Filter:='Kode Barang=' QuotedStr(Edit1.Text)
Coba liat penulisan nama field (nama barang & kode barang), harusnya penulisannya sama dgn field di database. Hrsnya jg tanpa spasi. |
|
|
| |
|
|
|
|
|
agusantoso |
| Location: |
|
|
Post subject:
Posted: 10/Aug/2011 14:50
|
|
onNewBie
Joined: 08-Aug-2011
Posts: 3
Status: Offline
|
|
|
ianhade wrote:
[code=pascal]
Coba liat penulisan nama field (nama barang & kode barang), harusnya penulisannya sama dgn field di database. Hrsnya jg tanpa spasi.
iya mas, udah berhasil..tapi ya harus sibuk lagi..hehe..makasiiiih..bgt hehe 
ternyata harus ada garis bawahanya gitu..
eh iya mau tanya sekalian dong,
saya kan lagi buat report, pake quickreport, nah didalam tabel ada beberapa kategori, cara manggilnya biar jadi report gimana ya, saya cuma tau nampilin seluruh data nya...
contonya gini:
nama pelanggan ||jenis pembelian ||Harga
nah di dalam pengisian data, saya memakai combobox, tepatnya di field jenis pembelian, karena saya bagi jadi 2, biasa dan pesanan, jadi nanti datanya ada yang pembelian biasa dan pembelian pesanan
itu gimana ya biar nanti di reportnya tampil pesanan doang dan biasa doang
saya gak gitu tau codingnya, kalo bisa tanpa sql, krn cuma pake ado table..
atau kalo terlalu panjang, kasih tau saja linknya, nanti saya coba sendiri..
dari tadi muter2 disini gak ketemu juga caranya..bantuin ya..  |
|
|
| |
|
|
|
|
|
amatirandelphian |
| Location: |
|
|
Post subject:
Posted: 22/Aug/2011 22:49
|
|
onNewBie
Joined: 03-Aug-2011
Posts: 3
Status: Offline
|
|
pake Syntax SQL az Gan
Code:
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('Select * From nama_tabel where jenis_pembelian=:jenis');
AdoQuery1.ParamByName('Jenis').AsString:=Combobox1.text;
AdoQuery1.Prepare;
AdoQuery1.Open;
tyuz Quickreportnya DataSetnya di Setting ke AdoQuery1
"Semoga Membantu" |
|
|
| |
|
|
|
|
|
|
