Program sudah sesuai yang diharapkan. Terima kasih untuk sharing ilmu dari
temanteman semua.
----- Original Message -----
From: "Seno Yudhi Hananto" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Monday, June 19, 2006 4:45 PM
Subject: Re: [Programmer-VB] PEncarian Travel
> 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
>
>
>
> Wahana Programmer Groups Links
>
>
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Check out the new improvements in Yahoo! Groups email.
http://us.click.yahoo.com/6pRQfA/fOaOAA/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/
