Senin


      Mengkoneksikan data dari Microsoft SQL Server ke Microsoft Visual Basic, adapun langkah-langkahnya seperti berikut ini; 
      1. Bukalah SQL Server, dan buatlah database dengan nama dbmahasiswa. 


 
 2. Setelah di Ok akan muncul dbmahasiswa seperti gambar dibawah ini:  
   

 
 3. Lalu klik 2 kali dbmahasiswa dan klik table modify, lalu Buatlah desain tabelnya seperti berikut ini;

 
 4. Pada tbmahasiswa klik kanan,  lalu pilih Open Table. Kemudian isi table yang sudah dibuat  Seperti gambar dibawah:

 
5. Setelah membuat database di SQL Server selesai, lalu dilanjutkan dengan membuat  project baru di Microsoft Visual Basic 2010 seperti biasanya. 
 6. Bukalah database yang sudah dibuat dengan meng-klik pada menu Data > Add New Data Source… > Database, lalu Next > Dataset, lalu Next > New Connection > pilih Microsoft SQL Server, lalu Continue

Kemudian akan muncul kotak dialog seperti berikut:
 
7. Pada bagian Server Name, pilih server yang tersedia. Jika tidak bisa kembali ke SQL Server dan sorot nama server (pilih Connect lalu copy nama server tersebut).Pada Log on to the server pilih Use Windows Authentication. Dan masukkan dbmahasiswa. Lalu Test Connection, jika sukses maka telah siap dikonekkan.Selanjutnya pilih OK
8. Dan tunggu beberapa saat hingga muncul tampilan. Cek semua table yang akan  digunakan pada Visual Basic. Seperti gambar dibawah ini;
 
 9. Lalu finis,  Setelah itu, kembali ke Visual Basic.

 Pada menu Data pilih Show Data Sources. 
 
10. Pada kolom jurusan, model nya diganti dari Textbox menjadi ComboBox.  
11. Drag semua ke form. 

Dan buatlah tampilan seperti berikut: (pada Jurusan dibuat ComboBox, tambahkan item TI dan SI dengan Edit Items)
 
12. Kemudian isikan kode berikut:

Public Class Form1

    Private Sub TbmahasiwaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmahasiwaBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TbmahasiwaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DbmahasiswaDataSet.tbmahasiwa' table. You can move, or remove it, as needed.
        Me.TbmahasiwaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiwa)

    End Sub

##Untuk Button pertama##
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TbmahasiwaBindingSource.MoveFirst()
    End Sub

##Untuk Button Sebelumnya##
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TbmahasiwaBindingSource.MovePrevious()
    End Sub

##Untuk Button Selanjutnya##
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TbmahasiwaBindingSource.MoveNext()
    End Sub

##Untuk Button Terakhir##
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.TbmahasiwaBindingSource.MoveLast()
    End Sub

##Untuk Button Tambah##
    Private Sub bttambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttambah.Click
        Me.TbmahasiwaBindingSource.AddNew()
        NIMTextBox.Focus()
        TGL_LAHIRDateTimePicker.ResetText()
    End Sub

##Untuk Button Hapus##
    Private Sub bthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthapus.Click
        If MsgBox("Apakah Anda Yakin ?", vbYesNo + vbQuestion + vbDefaultButton2, "Delete") = vbYes Then
            Me.TbmahasiwaBindingSource.RemoveCurrent()
        End If
    End Sub

##Untuk Button Simpan##
    Private Sub btsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsimpan.Click
        Me.Validate()
        Me.TbmahasiwaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub

##Untuk Button Cari##
    Private Sub btcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcari.Click
        If (TbmahasiwaBindingSource.Find("NIM", TextBox1.Text)) > -1 Then
            MsgBox("Data Berhasil Ditemukan")
        Else
            MsgBox("Data Tidak Berhasil Ditemukan")
        End If
    End Sub

##Untuk Button Filter##
    Private Sub btfilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btfilter.Click
        Dim mencari As String
        mencari = InputBox("Masukan Jurusan Yang Dicari", "Filter ...")
    End Sub

##Untuk Button Keluar##
    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
        Me.Close()
    End Sub
End Class

13.Jalankan program tersebut.

 
14.Pada tombol cari apabila NIM yang ada dimasukan maka akan muncul seperti berikut ini;



Subscribe to RSS Feed Follow me on Twitter!