Jumat, 28 Desember 2012

Koneksi Sql Server Dengan VB

KONEKSI DATABASE DENGAN VB

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.
 baik langsung saja
*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 seperti berikut

*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

+bttambah+
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttambah.Click
        Me.TbmahasiswaBindingSource.AddNew()
    End Sub
+btsimpan+
    Private Sub Button2_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
+bthapus+
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthapus.Click
        Me.TbmahasiswaBindingSource.RemoveCurrent()
    End Sub
+btpencarian+
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpencarian.Click
        Dim carinama As String
        Dim posisi As Integer = 1

        carinama = InputBox("Masukkan Nama", "Cari Nama")

        If (TbmahasiswaBindingSource.Find("Nama", carinama)) > -1 Then
            MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")
            Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", carinama)
            posisi = TbmahasiswaBindingSource.Find("Nama", carinama) + 1
        Else
            MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")
        End If
    End Sub
+btkeluar+
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
        Me.Close()
    End Sub
+btawal+


Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btawal.Click
        Me.TbmahasiswaBindingSource.MoveFirst()
    End Sub
+btprivious+
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsebelumnya.Click
        Me.TbmahasiswaBindingSource.MovePrevious()
    End Sub
+btselanjutnya+
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btselanjutnya.Click
        Me.TbmahasiswaBindingSource.MoveNext()
    End Sub
+btakhir+
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btakhir.Click

        Me.TbmahasiswaBindingSource.MoveLast()
    End Sub
End Class


*kalau sudah maka hasilnya akan seperti berikut ini

selamat mencoba dan semoga bermanfaat...^_^

0 komentar:

Poskan Komentar