Laman

Senin, 07 Januari 2013

Koneksi Database ke Vb

haii..Assalamualikum wr.wb
penulis ingin melanjutkan postingan yang lalu nihh..untuk kali ini penulis membuat koneksi database ke vb 2010. Databasenya sendiri penulis menggunakan Mikrosoft SQL server 2005 dengan Microsoft Visual Studio 2010.
langkah langkah mengoneksikannya adalah sebagai berikut :
1. Buat dulu database di SQL server, misalnya dbmahasiswa
2. Langsung masuk ke Vb 2010 dan koneksikan dengan cara :
    a. klik menu data - add new source - pilih database - next
    b. pilih Dataset - next - new conection - Ms.SQL server - Continue
    c. pilih pada servername, ketikkan "local" atau "tanda titik (.)"
    d. kemudian pada select or enter pilih yang dbmahasiswa
    e. test connection - Ok - Yes - next ...
    f. sampai kemudian finish.
3. setelah dikoneksikan otomatis dbmahasiswa tadi akan masuk ke vb dan kita tinggal buka kemudian drag satu per satu isi tabel tersebut.
4. tinggal isikan perintah perintah yang dibutuhkan. oke selesai dehhh
nah dibawah ini contoh yang penulis buat nihhh..
ini tampilan awalnya

data yang terlihat disamping dapat bergeser geser sesuai keinginan. Disitu juga tersedia tombol navigasi untuk menggeser data dari pertama sampai terakhir. Kita juga bisa menambahkan,menghapus, dan menyimpannya. Misal datanya terlalu banyak dan sulit mencari manual, kita bisa gunakan fungsi Search untuk mencarinya lebih cepat. Dan untuk kodingnya ada dibawah ini guys.. :)
Public Class Form1

    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmahasiswaBindingNavigatorSaveItem.Click
        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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TbmahasiswaBindingSource.MoveFirst()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TbmahasiswaBindingSource.MovePrevious()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TbmahasiswaBindingSource.MoveNext()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TbmahasiswaBindingSource.MoveLast()
        'MsgBox("Ini Data Terakhir")

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Close()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If (TbmahasiswaBindingSource.Find("nama", TextBox1.Text)) > -1 Then
            Me.TbmahasiswaBindingSource.Filter = "nama='" & TextBox1.Text & " '"
            MsgBox("Data di temukan ")
        Else
            MsgBox("Data yang anda cari tidak tersedia")
        End If
        'Me.TbmahasiswaBindingSource.Filter = "nama='" & TextBox1.Text & " '"
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TbmahasiswaBindingSource.AddNew()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Validate()
        Me.TbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TbmahasiswaBindingSource.RemoveCurrent()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub
End Class

teman yang tadi itu hanya contoh yang masih sangat sederhana dan banyak kekurangan. Penulis hanya ingin menuliskan apa yang penulis bisa. Semoga bermanfaat :)

wassalamualaikum wr wb :)

Tidak ada komentar:

Posting Komentar