Tugas pertemuan 9. Menggabungkan Database pada SQL Server 2005 dengan Visual Basic 2010

Menggabungkan Database pada SQL Server 2005 dengan Visual Basic 2010        

Blog tugas hari ini ada lah menggabungkan SQL server  2005 dengan visual basic 2010, yang berisi nim, nama, tgllahir , alamat, jurusan dan spptetap, jangan lupa berikan “Primary Key” pada nim. Kemudian simpan database tersebut ( disini saya simpan dengan menggunakan nama dbmahasiswa ). Dan setelah itu kita lanjutkan langkah berikutnya

1. Langkah pertama kita membuatDatabase.

Buka SQL Server, bikin new database isikan tabel diantaranya :NIM, Nama, Tanggal lahir, Alamat, Jurusan dan SPPlalu simpan dgn nama tabel andasendiri contoh dbmahasiswa.Kemudian siap membuat program memakai VB 2010 dengan memanfaatkan database tersebut.

2.Sekarang buka VB 2010.Buat koneksi Database SQL Server dengan VB 2010.

a. BuatProject Baru (Form)pada VB 2010.

b.      Klik menuData, pilihNew Data Sourceatau klik tabData Sourcesdibawah tab Toolbox, muncul tulisanAdd New Data Sourcedan klik.

c.       Akan muncul jendelaChoose a Data Source Type, pilihDatabasedan klik tombolNext.

d.      Muncul jendelaChosse a Database Model, pilihDatasetdan klik tombolNext.

e.       Muncul jendelaChosse Your Connectiondan klik tombolNew Connection….

f.       Muncul jendelaChosse Data Source, klik SQL Server Database File sebagai Data Source lalu     klik tombol Continue.

Kemudian Pilih file database yg anda buat tadi contoh db mahasiswa dengan mengeklik tombol Browse… pada kotak Database File, kemudian anda klikTest Connection, jika koneksi berhasil muncul informasi berikut

g.        Jika muncul konfirmasi mengopi file data dari project, klikNo –> Next.

h.        Muncul jendelaChoose Your Database, klik tanda panah ke kanan pada folder Tables dan klik kota di depan tabel dbARIFDWI, sehingga diberi tandachecklist. Kemudian klik tombol Finish.

i.         Muncul dbARIFDWI dijendela Data Source.

j.         Tarik (drag n drop) semua record ke Form seperti berikut.

Keterangan :

1.                  Tombol |< : untuk berpindah ke data pertama.

2.                  Tombol < : untuk berpindah ke data sebelumnya.

3.                  Tombol > : untuk berpindah ke data selanjutnya.

4.                  Tombol >| : untuk berpindah ke data terakhir.

5.                  Tombol Add : untuk menambahkan data baru.

6.                  Tombol Save : untuk menyimpan data.

7.                  Tombol Remove : untuk menghapus data.

8.                  Tombol Find : untuk mencari data dengan yang telah ditentukan.

Masukan Source Code dibawah ini pada masing – masing Button sesuai dengan fungsinya.

Public Class Datamahasiswa

Private Sub TblmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblmahasiswaBindingNavigatorSaveItem.Click
Me.Validate()
Me.TblmahasiswaBindingSource.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.tblmahasiswa’ table. You can move, or remove it, as needed.
Me.TblmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tblmahasiswa)

End Sub

1. kode program ’’Untuk button |<’’

Private Sub First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles First.Click
TblmahasiswaBindingSource.MoveFirst()

End Sub

2. kode program ’’Untuk button <’’
Private Sub Previous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Previous.Click
TblmahasiswaBindingSource.MovePrevious()
End Sub

3. kode progaram ’’Untuk button >’’
Private Sub Next__Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Next_.Click
TblmahasiswaBindingSource.MoveNext()
End Sub

4. kode program ’’Untuk button >|’’

Private Sub Last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Last.Click
TblmahasiswaBindingSource.MoveLast()
End Sub

5. kode program ’’Untuk button Add’’
Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
TblmahasiswaBindingSource.AddNew()
NIMTextBox.Focus()
End Sub

6. kode program ’’Untuk button Save’’
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
Me.Validate()
Me.TblmahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
End Sub

7.kode program  ’’Untuk button Remove’’

Private Sub Remove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Remove.Click
TblmahasiswaBindingSource.ResetCurrentItem()

End Sub

8. kode program ’’Untuk button Find’’
Private Sub Find__Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Find_.Click
If(TblmahasiswaBindingSource.Find("Nama", tbx_find.Text)) > -1Then
MsgBox("Data berhasil ditemukan")
Else
MsgBox("Data tidak berhasil ditemukan")
End If
End Sub
End Class