From: Frangky
To: [email protected]
Sent: Monday, June 19, 2006 2: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.
=My Reply=
Harga diatas muncul karena pointer recordset kebetulan menunjuk ke record
pertama. Coba masukkan Dari Denpasar Ke Surabaya, tapi Kelas B, yang muncul
adalah kelas A punya harga.
Masalahnya adalah, tidak dilakukan pencarian ke database utk mendapatkan
record yang tepat.
Coba pake coding berikut:
-----------------------------------------
If KeyCode = 13 Then
Dim ssql As String
'ssql = "select * from table1 where class = '" & txtKelas & "'"
ssql = "select hargadasar from table1 where pesawat='" &
Trim(txtPesawat) & "' and dari='" & Trim(txtDari) & "' and tujuan='" &
Trim(cboTujuan.Text) & "' and class='" & Trim(txtKelas) & "'"
Set rs = cnn.Execute(ssql)
If Not rs.BOF Then txtHarga = rs.Fields("hargadasar")
End If
-----------------------------------------
Semoga membantu
------------------------ Yahoo! Groups Sponsor --------------------~-->
Great things are happening at Yahoo! Groups. See the new email design.
http://us.click.yahoo.com/TISQkA/hOaOAA/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/
