Logikanya begini : kalau anda mengambil data dengan query :
ssql = "select * from table1 where class = '" & txtKelas & "'"
maka yang didapat adalah :
#1 Batavia Denpasar Surabaya A 450000
#2 Batavia Denpasar Semarang A 600000
Terus ada berikan kondisi : If txtPesawat = rs.Fields("Pesawat") And txtDari =
rs.Fields("Dari") And
cboTujuan = rs.Fields("Tujuan") And txtKelas = rs.Fields("Class")
Maka yang dibaca harnya record #1, di mana datanya adalah jurusan Surabaya
dengan harga 450000.
Ada 2 cara :
1. Gunakan do while not rs.EOF, baru di dalam do while diberikan kondisi if.
Jadi setiap record
diperiksa.
2. query anda (ssql) langsung ke record yg dimaksud (jadi jangan hanya where
class= txtKelas tapi
ditambah (and pesawat= txtpesawat and dari = txtdari and tujuan = txttujuan)
PS : sori nggak langsung kasih query yg benernya. Kalo dari pengalaman sendiri
pasti lebih inget
dibanding langsung copy-paste. Pokoknya teorinya begitu deh.. :)
Frangky wrote:
>
>
> *Teman-teman,*
> *tolong perhatikan tabel dan kode dibawah ini.*
> **
> *Harga tiket Pesawat dari Denpasar ke Surabaya atau kota lain, harganya
> berbeda-beda dilihat jenis Kelas.*
> *__*
> *_Pesawat_ _Dari_ _Tujuan_
> _Kelas_ _Harga_*
> Batavia DENPASAR *SURABAYA* A
> 450000
> Batavia DENPASAR *SURABAYA*
> B 500000
> Batavia DENPASAR *SURABAYA*
> C 550000
> Batavia DENPASAR *SEMARANG *
> A 600000
> Batavia DENPASAR *SEMARANG*
> B 650000
> Batavia DENPASAR *SEMARANG*
> C 700000
>
>
> *If txtPesawat = rs.Fields("Pesawat") And txtDari = rs.Fields("Dari")
> And txtTujuan = rs.Fields("Tujuan") And txtKelas = rs.Fields("Class") Then
> txtHarga = rs.Fields("Hargadasar")*
> **
> **
> *Kalau pada form,*
> **
> txtPesawat = Batavia
> txtDari = DENPASAR
> txtTujuan = *Surabaya*
> txtKelas=A
>
> maka txtHarga = 450000.
>
> *Masalahnya kalau pada form:*
>
> txtPesawat = Batavia
> txtDari = DENPASAR
> txtTujuan = *SEMARANG*
> txtKelas=A
>
> txtHarga tidak menampilkan harga tiket dari Denpasar ke SEMARANG. Yang
> harusnya menampilkan harga 600000 untuk Kelas A.
>
> Untuk lebih jelasnya saya lampirkan file program yang saya buat.
>
> Terimakasih kalau ada yang membantu.
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
See what's inside the new Yahoo! Groups email.
http://us.click.yahoo.com/2pRQfA/bOaOAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
