TUGAS 7 PEMROGRAMAN VISUAL VB 2010

Artikel terkait : TUGAS 7 PEMROGRAMAN VISUAL VB 2010

PEMROGRAMAN VISUAL

MENGHUBUNGKAN DATABASE DENGAN VISUAL BASIC 2010

Pada Posting kali ini saya akan memosting tentang bagaimana menghubungkan/mengkoneksikan database menggunakan sql server 2005 di konekesikan ke program visual basic 2010.NAH .... kebetulan pada post ini praktek yang saya lakukan menggunkan database "Microsoft Access 2010" karena ada sedikit masalah dengan program SQL server 2005 pada komputer saya.

Dimana pada posting ini untuk mengkoneksikan database tersebut saya namai dengan "database mahasiswa" karena pada programnya nanti akan berisi inputan-inputan dan tombol-tombol yang berfungsi untuk mebambahkan data atau mengedit dan juga menghapus data entry yang telah kita masukan pada database "dbmahasiswa" untuk kita simpan pada database tersebut.

1. Buat database "dbmahasiswa" dapat menggunakan "sql server 2005" atau "microsoft access" pada posting ini penulis pakai microsoft access.

2.setelah dibuat databesenya seperti pada gambar, tinggal menghubungkan ke vb 2010.

3. 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,kalau anda mnegunakan sql server kalau acess tinggla pilih yang access. lalu Continue.

Kemudian akan muncul kotak dialog seperti dibawah :

4. 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 masukkandbmahasiswa.

Lalu Test Connection, jika sukses maka telah siap dikonekkan.

. Selanjutnya pilih OK..!

5. Tampilan design dari program

56. Tampilan Output dari program

7.Sources Code Programnya :

  Public Class Form1
    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.TbmahasiswaBindingSource.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.tbmahasiswa' table. You can move, or remove it, as needed.
        Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiswa)
    End Sub
    Private Sub NAMALabel_Click(ByVal sender As Object, ByVal e As EventArgs)
        Throw New NotImplementedException
    End Sub
   
     ## Untuk Button pertama ##
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 
      Button1.Click
        Me.TbmahasiswaBindingSource.MoveFirst()
    End Sub
   ## Untuk Button Sebelumnya ##
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TbmahasiswaBindingSource.MovePrevious()
    End Sub
 
     ## Untuk Button Selanjutnya ##
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TbmahasiswaBindingSource.MoveNext()
    End Sub
 
     ## Untuk Button Terakhir ##
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.TbmahasiswaBindingSource.MoveLast()
    End Sub
    ## Untuk Button tambah ##
    Private Sub bttambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttambah.Click
        Me.TbmahasiswaBindingSource.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.TbmahasiswaBindingSource.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.TbmahasiswaBindingSource.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 (TbmahasiswaBindingSource.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("Masukkan Jurusan Yang Di Cari", "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

PELUANG BISNIS