Aplikasi Search Sederhana VB8 ke SQL Server

                Pada kesempatan ini saya akan berbagi sedikit ilmu yang mengenai aplikasi search dari vb8 untuk mencari data yang ada di dalam SQL.
Dimulai dari membuat class module ;

1. Membuat project baru di dalam VB8
   file | new | project
2. Beri nama , contoh :
   Search
3. Klick kanan pada project tadi yang ada di Solution Explorer
   Add | Module
4. Beri nama , contoh :
   Koneksi
          kemudian masukkan coding seperti yang ada di bawah ini :
   ***************************************************************************
   Module koneksi
       Public database As New OleDb.OleDbConnection
       Public tampil2 As New OleDb.OleDbCommand
       Public tampilkan As OleDb.OleDbDataReader
       Public hasilcek As String
   
       Public Sub bukakoneksi()
           database.Close()
           Try
               database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=jurusan;data source=."
               database.Open()
               MessageBox.Show("Koneksi kedatabase berhasil")
           Catch ex As Exception
               MessageBox.Show("koneksi gagal")
               End
           End Try
       End Sub
   End Module
   ****************************************************************************
5. Kembali ke Form Utama
6. Buat tampilan seperti berikut !
   
   keteraangan tool yang di gunakan :
   > textbox
   > button ( ganti menjadi "search" )
7. Kilck 2x pada button search , dan masukkan coding di bawah ini !
   ----------------------------------------------------------------------------------------------------
    Call bukakoneksi()
           tampil2.Connection = database
           tampil2.CommandType = CommandType.Text
           tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
           tampilkan = tampil2.ExecuteReader
   
           If tampilkan.HasRows = True Then
               While tampilkan.Read()
                   If IsDBNull(tampilkan("kdjur")) Then
                       TextBox2.Text = tampilkan("nmjur")
                   Else
                       TextBox2.Text = tampilkan("nmjur")
                   End If
               End While
           End If
   ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
8. Tahap terakhir silahkan test , dengan menekan tombol F5.
   
   _ mencobalah untuk lebih baik .... supaya semua mejadi lebih baik .