Koneksi Database Access 2007 VB .Net 2013

Koneksi Database Access 2007 VB .Net 2013

02.05
Berikut ini adalah Cara Koneksi Database SQL Server VB 2013
Buatlah Database Pada SQL Server dengan nama : DB_TEST
Buatlah Tabel dengan nama : TBL_PEGAWAI dengan design tabel seperti gambar dibawah ini :
Kemudian karena nantinya kita akan mengkoneksikannya saja, maka membuat sample data pada TBL_PEGWAI tersebut. silahkan masukan seperti contoh dibawah ini :
Jika sudah membuat langkah diatas,
Buka Visual Basic 2013 anda
Buatlah Form Seperti gambar dibawah ini :
Pada Form diatas, hanya ditambahkan Datagridview1

Kemudian pada Form1, masukan koding dibawah ini :
Imports System.Data.SqlClient
Public Class Form1
    Dim Conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=TMEDIA007;initial catalog=DB_TEST;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_PEGAWAI")
        DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))
    End Sub
End Class

Kemudian silahkan Run atau jalankan Project VB Net 2013 anda
Hasilnya adalah seperti gambar dibawah ini :
Yang perlu anda perhatikan pada kosing diatas adalah :
Untuk Warna Kuning : samakan dengan Komputer name anda
Untuk Warna Kuning : nama Database
Untuk Warna Kuning : nama Tabel

Jika anda sudah berhasil memunculkan Tabel Pegawai seperti diatas, maka proses koneksi database dengan SQL Server telah berhasil.