Kalau panjang field class diganti jadi 1 juga udah
jalan kok.
Tapi kalau selengkapnya seperti Agung bilang ...
--- "AgUnG.R" <[EMAIL PROTECTED]> wrote:
> dEAR fRANKY...
>
> Di source code programnya ditambahin aja selain kata
> pencariannya ...perhatikan yang dicetak tebal
> Private Sub txtKelas_KeyDown(KeyCode As Integer,
> Shift As Integer)
> If KeyCode = 13 Then
> Dim ssql As String
> ssql = "select * from table1 where class =
> '" & txtKelas & "' and Dari='" & txtDari & "' and
> Tujuan='" & cboTujuan & "'"
> Set rs = cnn.Execute(ssql)
> If txtPesawat = rs.Fields("Pesawat") And
> txtDari = rs.Fields("Dari") And cboTujuan =
> rs.Fields("Tujuan") And txtKelas =
> rs.Fields("Class") Then
> txtHarga = rs.Fields("Hargadasar")
> End If
> End If
> End Sub
> ----- Original Message -----
> From: Frangky
> To: [email protected]
> Sent: Monday, June 19, 2006 1:18 PM
> Subject: [Programmer-VB]
>
>
> 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.
>
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
------------------------ 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/
