Membuat Pencarian berdasarkan kriteria tertentu

Posted on Updated on


vbnetsekarang ane mau posting tutorial VB ….nah ini ane ambil dari blog sahabat ane seprofesi ..om Zoeliandri . baiklah lansung saja ke permasalahan ,Membuat Pencarian berdasarkan kriteria tertentu di VB sebenernya logika nya tidak begitu sulit soalnya temen ane yang satu ini jago coding di VB . jadi bahasa yang di gunakankan pun sangat mudah di pelajari dan di pahami….lansung saja ke koding alias kolak dingin hehehhee 

buat form seperti ini :deq

Private Sub Command1_Click()
bersih
End Sub

Private Sub Form_Load()
Call BukaDB
End Sub
Private Sub Text1_Keypress(Keyascii As Integer)
Call BukaDB
If Keyascii = 13 Then
    If Combo1.Text = "KODE" Then
      RSBarang.Open "SELECT * FROM barang where kodeBrg='" & Text1 & "'", Conn
        If Not RSBarang.EOF Then
            Text2 = RSBarang!Kodebrg
            Text3 = RSBarang!namabrg
            Text4 = RSBarang!HargaBeli
            Text5 = RSBarang!HargaJual
            Text6 = RSBarang!JumlahBrg
            RSBarang.Close
        Else
            MsgBox "Data tidak ditemukan", vbInformation, "INFORMASI"
            bersih
            RSBarang.Close
        End If
    ElseIf Combo1.Text = "NAMA" Then
        RSBarang.Open "SELECT * from barang Where NamaBrg='" & Text1 & "'", Conn
        If Not RSBarang.EOF Then
            Text2 = RSBarang!Kodebrg
            Text3 = RSBarang!namabrg
            Text4 = RSBarang!HargaBeli
            Text5 = RSBarang!HargaJual
            Text6 = RSBarang!JumlahBrg
            RSBarang.Close
        Else
            MsgBox "Data Tidak Ditemukan", vbInformation, "Informasi"
            bersih
            RSBarang.Close
        End If
    Else
        MsgBox "Anda Belum Memilih apapun", vbInformation, "Informasi"
    End If
End If
End Sub

Sub bersih()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Combo1.SetFocus
End Sub

sumber :http://zoeliandri.wordpress.com/

download source di sini


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s