[Programmer-VB] PEncarian Travel

Sun, 18 Jun 2006 23:51:46 -0700

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
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.
 
 
__._,_.___

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




SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



__,_._,___

Kirim email ke