Minggu, Januari 6

KONEKSI DATABASE DENGAN VB 2010

Dalam catatan kali ini saya akan membahas bagaimana cara koneksi visual basic dengan database, kali ini saya menggunakan visual basic 2010 dan untuk databasenya menggunakan sql server 2005.


** Langkah pertama buka terlebih dahulu sql 2005 koneksikan pada server, klik ok
** Langkah kedua buat database baru, kali ini saya beri nama dbdatamahasiswa pilih tempat dimana kita akan menyimpan data tersebut lalu klik ok


** langkah ke tiga buat table, dengan klik kanan pada tabel dalam databases yang telah di buat lalu new table, sesudah itu isikan seperti yang ada pada gambar di bawah ini, i jangan lupa set nim sebagai primary key setelah itu simpan dan beri nama tbmahasiswa.



** langkah keempat isikan tabel dengan beberapa data terserah masing masing

** Langkah keLima setelah pembuatan databases di sql sudah jadi maka langkah selanjutnya membuat disaign interface di vb dan membuat koneksinya, langsung saja buka dulu vb nya lalu buat koneksi dengan cara pilih menu data --> add new data source -->database --> data set -->new connection(pada server name isikan nama serer sql yang kita gunakan tadi, kemudian pada select or enter database name pilih database yang telah kita buat tadi, setelah itu test connection setelah coneksi berhasil klik ok) --> lalu pada choose your data base object beri tanda pada table kalo sudah klik finish.









 ** langkah keenam buat disign interfacedengan cara mendrag data tabe pada data sources lalu masukan kodingnya seperti 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

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

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

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

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

    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

    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

    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

    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

    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

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

** kalau sudah maka di run dan hasilnya. . . . . . . . . . . 



Tidak ada komentar:

Poskan Komentar