Tugas Ke 7 Menggabungkan Antara Visual Basic 2010 Dan Database SQL Server 2005

Kali ini saya akan membahas tentang aplikasi penggabungan antara Visual Basic 2010 dan database SQL Server 2005. Walaupun terlambat, karena saya harus menginstal ulang windows terlebih dahulu sebelum saya menginstal SQL Server 2005.

langkah-langkahnya dibawah ini :

1. Buatlah tabel pada SQL Server.
Langkah pertama bukalah aplikasi SQL Server, kemudian klik connect.

Kemudian klik kanan database, lalu pilih new database, beri nama dan kemudian simpan pada drive D atau E terserah sesuaikan dengan keinginan anda. Setelah selesai maka klik OK.

Klik database yang telah anda buat tadi kemudian cari folder table setelah ketemu klik kanan lalu pilih new table, buatlah table tersebut dengan formatnya sesuai dengan kebutuhan. 

 

Kemudian klik save all dan jangan lupa berikan nama jika sudah lalu klik OK.

Kemudian klik kanan pada table yang anda buat kemudian klik open table dan isikan kolom pada table tersebut, bila semuanya sudah terisi klik save all.

2. Membuat form pada Visual Basic 2010. 

Buka aplikasi Visual Basic 2010 lalu klik new project, pilih visual basic dan  pilih windows form application setelah selese klik OK.

3. Menggabungkan Visual Basic 2010 dan database SQL Server 2005 

Klik menu data kemudian pilih Add New Data Source 

Kemudian pilih Database kemudian klik next, pilih Dataset klik next kembali.

Klik Next pilih New Connection

Pilih Microsoft SQL Server, lalu Continue.

Kemudian isikan User SQL Server Authentication lalu  pilihlah Select or enter a database name pilih nama database yang telah dibuat sebelumnya, kemudian klik test conection bila sukses klik ok, kemudian klik next, kemudian cetang pilihan sesuai kebutuhan kemudian klik finish.  

 

 

 

Drag atau tarik tabel (database mahasiswa) ke from, ganti jurusan dengan combobox

Kemudian buat label, textbox, combobox (Masukan TI dan SI yaitu klik kanan edit text dst), button awal, akhir, sebelum, selanjutnya, tambah, hapus, simpan ,cari, filter, dan terakhir keluar.

Koding Programnya :

 1. Button Awal :

Private Sub Btawal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btawal.Click
        DbmahasiswaBindingSource.MoveFirst()
    End Sub

Printscrennya: 

 

2. Button Akhir : 

Private Sub Btakhir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btakhir.Click
        DbmahasiswaBindingSource.MoveLast()
    End Sub

Printscrennya: 

 

3. Button Sebelumnya :

 Private Sub Btsebelum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsebelum.Click
        DbmahasiswaBindingSource.MovePrevious()
    End Sub

 Printscrennya: 

4. Button Selanjutnya:

 Private Sub Btselanjutnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btselanjutnya.Click
        DbmahasiswaBindingSource.MoveNext()
    End Sub

Printscrennya : 

5. Button Tambah :

Private Sub Bttambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttambah.Click
        DbmahasiswaBindingSource.AddNew()
    End Sub

Printscrennya :

6. Button Hapus

Private Sub Bthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthapus.Click
        DbmahasiswaBindingSource.RemoveCurrent()
    End Sub

Printscrennya : 

7. Button Simpan

Private Sub Btsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsimpan.Click
        Me.Validate()
        Me.DbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub

Printscrennya :

8. Button Cari

Private Sub Btcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btcari.Click
        If (DbmahasiswaBindingSource.Find("Nama", TextBox4.Text)) > -1 Then
            MsgBox("Data yang anda cari berhasil ditemukan")
        Else
            MsgBox("Data yang anda cari tidak berhasil ditemukan")
        End If

    End Sub

Printscrennya :

9. 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

BACA SELANJUTNYA >>>>