tutorialswb

TutorialsWB hadir sebagai wadah bagi teman-teman yang ingin "Belajar PHP Dasar". Sehingga kami yakin bahwa TutorialsWB akan menjadi Pusat "Belajar Bahasa Pemrograman PHP" Disamping PHP website ini menyediakan berbagai tips dan trik Blogger. Kami menerima Pemasangan iklan banner atau artikel.

Hubungi Saya

Tutorial koneksi database sql server dengan visual studio 2010



Selamat malam guys kali ini saya akan membuat suatu artikel yang cukup panjang karena karena ini saya akan membagikan bagaimana cara mengkoneksikan Visual studio 2010 dengan sql server. pada artikel ini saya akan mencoba menghubungkan 3 tabel pada sql server dengan visual studio 2010.semoga dengan postinagn ini bisa membantu teman-teman semua. 


Yang pertama anda lakukan adalah membuka aplikasi sql server anda. kemudian anda membuat Database baru dengan nama Db_Final. berikutnya buat table. karena di sini saya akan membuat 3 table yang pertama saya lakukan adalah membuat ketiga tabel ini kemudian setelah membuat tabel saya beru membuat desain dan tampilan pada visual studio saya. untuk lebih lengkapnya lihat gambar dan penjelasan dibawah ini.
  • buat table barang dengan nama TBLBarang.
  • buat table pelanggan denga nama TBLPelanggan.
  • buat table supplier dengan nama TBLSupplier.

Setelah semua table telah selesai di buat berikutnya buka aplikasi visual studio 2010, kemudian buat desain sesuai yang anda inginkan. untuk lebih jelasnya perhatikan penjelasan dan gambar dibawah ini.

Yang pertama anda lakukan adala membuat Desain login.


Setelah desain login telah dibuat berikutnya adalah anda harus memasukkan kodingannya supaya form login bisa berjalan.
  • Klik Button login kemudian masukkan kodingan berikut.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "connect" And TextBox2.Text = "1234" Then
            Form2.Show()
        Else
            MsgBox("password yang anda masukkan salah")
        End If
    End Sub
  • Klik Button cancel dan masukkan kodingan "end"
  • jika anda ingin memberikan warna seperti gambar anda tinggal klik 2 kali form1 kemudian masukkan kodingan berikut "Me.BackColor = Color.Aquamarine"
berikutnya adalah membuat module, tujuannya untuk mengkoneksikan data yang ada pada sql server dengan visual studio. tetapi di sini saya menghungkan banyak tabel jadi disni saya membuat 2 module. yang pertama saya membuat module pertama.

Caranya klik kanan nama "visual studio" anda kemudian klik "add" dan terakhir pilih "module". 
berikutnya masukkan kodingan dibawah ini.

Imports System.Data
Imports System.Data.Sql
Module Module1
    Public database As OleDb.OleDbConnection
    Public Sub koneksi()
        Try
            database = New OleDb.OleDbConnection("Provider=SQLOleDb.1;Integrated Security=SSPI;Persist Security Info=false;Initial catalog=Db_Final;data source=.\SQLEXPRESS")
            database.Open()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Module 

Berikutnya anda harus module2 dengan nama clskoneksi, caranya sama seperti di atas,  klik kanan nama "visual studio" anda kemudian klik "add" dan terakhir pilih "module". 
berikutnya masukkan kodingan dibawah ini.

Imports Microsoft.VisualBasic
Imports System.Data.Sql
Public Class ClsKoneksi
    Protected Tbllogin = New DataTable
    Protected SQL As String
    Protected Cn As OleDb.OleDbConnection
    Protected Cmd As OleDb.OleDbCommand
    Protected Da As OleDb.OleDbDataAdapter
    Protected Ds As DataSet
    Protected Dt As DataTable

    Public Function OpenConn() As Boolean
        Cn = New OleDb.OleDbConnection("Provider=SQLOledB.1;Integrated Security=SSPI;Persist Security Info=False;Initial catalog=Db_Final;data source=.\SQLEXPRESS")
        Cn.Open()
        If Cn.State <> ConnectionState.Open Then
            Return False
        Else
            Return True
        End If
    End Function

    Public Sub CloseConn()
        If Not IsNothing(Cn) Then
            Cn.Close()
            Cn = Nothing
        End If
    End Sub

    Public Function ExecuteQuery(ByVal Query As String) As DataTable
        If Not OpenConn() Then
            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")
            Return Nothing
            Exit Function
        End If
        Cmd = New OleDb.OleDbCommand(Query, Cn)
        Da = New OleDb.OleDbDataAdapter
        Da.SelectCommand = Cmd
        Ds = New Data.DataSet
        Da.Fill(Ds)
        Dt = Ds.Tables(0)
        Return Dt
        Dt = Nothing
        Ds = Nothing
        Da = Nothing
        Cmd = Nothing
        CloseConn()
    End Function

    Public Sub ExecuteNonQuery(ByVal Query As String)
        If Not OpenConn() Then
            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")
            Exit Sub
        End If
        Cmd = New OleDb.OleDbCommand
        Cmd.Connection = Cn
        Cmd.CommandType = CommandType.Text
        Cmd.CommandText = Query
        Cmd.ExecuteNonQuery()
        Cmd = Nothing
        CloseConn()
    End Sub
End Class


   karena anda telah membuat module, berikutnya adalah kembali mendesain semua tampilan TBLBarang, TBLPelanggan, dan TBLSupplier. yang pertama saya akan mendesain TBLBarang. lihat tampilannya pada gambar dibawah ini:
  • TBLBarang.

Setelah anda membuat desainnya berikut yang mesti anda lakukan adalah memasukkan kodingannya.
Klik kanan pada form barang kemudian pilih View Code, dan masukkan kodingan berikut.

Public Class Form3
    Dim tabel As OleDb.OleDbDataAdapter
    Dim data As DataSet
    Dim record As New BindingSource
    Sub bersih()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        Call dataBarang()
    End Sub

    Sub dataBarang()
        Call koneksi()
        tabel = New Data.OleDb.OleDbDataAdapter("select * from TBLBarang", database)
        data = New DataSet
        tabel.Fill(data)
        record.DataSource = data
        record.DataMember = data.Tables(0).ToString()
        DataGridView1.DataSource = record
    End Sub

berikutnya klik 2 kali pada form barang dan masukkan kodingan berikut.
 Call dataBarang()
        Me.BackColor = Color.Aquamarine

berikutnya klik button Simpan dan masukkan kodingan berikut:
Dim sqlquery As New OleDb.OleDbCommand
        sqlquery.Connection = database
        sqlquery.CommandType = CommandType.Text
        sqlquery.CommandText = "insert into TBLBarang values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "')"
        sqlquery.ExecuteNonQuery()
        MsgBox("data tersimpan")
        Call bersih()

berikutnya klik button Ubah, dan masukkan kodingan berikut:
 Try
            Call koneksi()
            Dim sqlquery As New OleDb.OleDbCommand
            sqlquery.Connection = database
            sqlquery.CommandType = CommandType.Text
            sqlquery.CommandText = "Update TBLBarang set kodebrg = '" & TextBox3.Text & "'where barcode = '" & TextBox2.Text & "',namabrg = '" & TextBox3.Text & "',kelompok = '" & ComboBox1.Text & "',satuan = '" & ComboBox2.Text & "',hargabeli = '" & TextBox6.Text & "',hargajual = '" & TextBox7.Text & "' stok = '" & TextBox8.Text & "'"
            sqlquery.ExecuteNonQuery()
            MsgBox("Data Sudah diupdate")
            Call bersih()
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try

berikutnya klik button hapus, dan masukkan kodingan berikut:
Dim sqlquery As New OleDb.OleDbCommand
        sqlquery.Connection = database
        sqlquery.CommandType = CommandType.Text
        sqlquery.CommandText = "Delete from TBLBarang where Kodebrg = '" & TextBox1.Text & "'"
        sqlquery.ExecuteNonQuery()
        MsgBox("data dihapus")
        Call bersih()

berikutnya klik button cari danmasukkan kodingan berikut:
Dim Kode_Barang = InputBox("Masukkan Kode Barang")
        Try
            data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("KodeBrg")}
            Dim row As DataRow
            row = data.Tables(0).Rows.Find(Kode_Barang)
            TextBox1.Text = row("kodebrg")
            TextBox2.Text = row("barcode")
            TextBox3.Text = row("namabrg")
            ComboBox1.Text = row("Kelompok")
            ComboBox2.Text = row("satuan")
            TextBox6.Text = row("hargabeli")
            TextBox7.Text = row("hargajual")
            TextBox8.Text = row("stok")

        Catch ex As Exception
            MsgBox("Data tidak ada / anda batal mencari data !!")
        End Try

yang terakhir klik button tutup dan masukkan kodingan "end".
  • TBLSupplier.

setelah anda membuat desain atau tampilannya berikutnya adalah memasukkan kodingan pada form tersebut.

klik kanan pada form supplier kemudian pilih view code kemudian masukkan kodingan berikut.

Public Class Form4
        Dim tabel As OleDb.OleDbDataAdapter
        Dim data As DataSet
        Dim record As New BindingSource
        Sub bersih()
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
        Call datasupplier()
        End Sub

    Sub datasupplier()
        Call koneksi()
        tabel = New Data.OleDb.OleDbDataAdapter("select * from TBLSupplier", database)
        data = New DataSet
        tabel.Fill(data)
        record.DataSource = data
        record.DataMember = data.Tables(0).ToString()
        DataGridView1.DataSource = record
    End Sub

berikutnya klik 2 kali pada form supplier dan masukkan kodingan berikut:
Call datasupplier()
        Me.BackColor = Color.Aquamarine

berikutnya adalah klik 2 kali button simpan, kemudian masukkan kodingan berikut.
 Dim sqlquery As New OleDb.OleDbCommand
        sqlquery.Connection = database
        sqlquery.CommandType = CommandType.Text
        sqlquery.CommandText = "insert into TBLSupplier values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
        sqlquery.ExecuteNonQuery()
        MsgBox("data tersimpan")
        Call bersih()

berikutnya adalah klik 2 kali button ubah, kemudian masukkan kodingan berikut.
 Try
            Call koneksi()
            Dim sqlquery As New OleDb.OleDbCommand
            sqlquery.Connection = database
            sqlquery.CommandType = CommandType.Text
            sqlquery.CommandText = "Update TBLSupplier set where kodespl = '" & TextBox1.Text & "',namaspl = '" & TextBox2.Text & "',alamat = '" & TextBox3.Text & "' telepon = '" & TextBox4.Text & "'"
            sqlquery.ExecuteNonQuery()
            MsgBox("Data Sudah diupdate")
            Call bersih()
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try

berikutnya adalah klik 2 kali button hapus, kemudian masukkan kodingan berikut.
 Dim sqlquery As New OleDb.OleDbCommand
        sqlquery.Connection = database
        sqlquery.CommandType = CommandType.Text
        sqlquery.CommandText = "Delete from TBLSupplier where kodespl = '" & TextBox1.Text & "'"
        sqlquery.ExecuteNonQuery()
        MsgBox("data dihapus")
        Call bersih()

berikutnya adalah klik 2 kali button cari, kemudian masukkan kodingan berikut.
 Dim Kode_Barang = InputBox("Masukkan Kode Supplier")
        Try
            data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("kodespl")}
            Dim row As DataRow
            row = data.Tables(0).Rows.Find(Kode_Barang)
            TextBox1.Text = row("kodespl")
            TextBox2.Text = row("namaspl")
            TextBox3.Text = row("alamat")
            TextBox4.Text = row("telepon")

        Catch ex As Exception
            MsgBox("Data tidak ada / anda batal mencari data !!")
        End Try

berikutnya adalah klik 2 kali button tutup, kemudian masukkan kodingan "end".
  • TBLPelanggan.

setelah anda membuat desainnya, berikutnya adalah memasukkan kodingannya, klik kanan pada form pelanggan, kemudian pilih view code dan masukkan kodingan di bawah ini:

Public Class Form5
        Dim tabel As OleDb.OleDbDataAdapter
        Dim data As DataSet
        Dim record As New BindingSource
        Sub bersih()
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
        Call dataPelanggan()
        End Sub

    Sub dataPelanggan()
        Call koneksi()
        tabel = New Data.OleDb.OleDbDataAdapter("select * from TBLPelanggan", database)
        data = New DataSet
        tabel.Fill(data)
        record.DataSource = data
        record.DataMember = data.Tables(0).ToString()
        DataGridView1.DataSource = record
    End Sub

Berikutnya klik 2 kali pada form pelanggan kemudian masukkan kodingan berikut:
 Call dataPelanggan()
        Me.BackColor = Color.Aquamarine

berikutnya klik button simpan, kemudian masukkan kodingan berikut:
Dim sqlquery As New OleDb.OleDbCommand
        sqlquery.Connection = database
        sqlquery.CommandType = CommandType.Text
        sqlquery.CommandText = "insert into TBLPelanggan values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
        sqlquery.ExecuteNonQuery()
        MsgBox("data tersimpan")
        Call bersih()

berikutnya klik button ubah, kemudian masukkan kodingan berikut:
 Try
            Call koneksi()
            Dim sqlquery As New OleDb.OleDbCommand
            sqlquery.Connection = database
            sqlquery.CommandType = CommandType.Text
            sqlquery.CommandText = "Update TBLPelanggan set where kodeplg = '" & TextBox1.Text & "',namaplg = '" & TextBox2.Text & "',alamat = '" & TextBox3.Text & "' telepon = '" & TextBox4.Text & "'"
            sqlquery.ExecuteNonQuery()
            MsgBox("Data Sudah diupdate")
            Call bersih()
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try

berikutnya klik button hapus, kemudian masukkan kodingan berikut:
  Dim sqlquery As New OleDb.OleDbCommand
        sqlquery.Connection = database
        sqlquery.CommandType = CommandType.Text
        sqlquery.CommandText = "Delete from TBLPelanggan where kodeplg = '" & TextBox1.Text & "'"
        sqlquery.ExecuteNonQuery()
        MsgBox("data dihapus")
        Call bersih()

berikutnya klik button cari, kemudian masukkan kodingan berikut:
 Dim Kode_Barang = InputBox("Masukkan Kode pelanggan")
        Try
            data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("Kodeplg")}
            Dim row As DataRow
            row = data.Tables(0).Rows.Find(Kode_Barang)
            TextBox1.Text = row("kodeplg")
            TextBox2.Text = row("namaplg")
            TextBox3.Text = row("alamat")
            TextBox4.Text = row("telepon")

        Catch ex As Exception
            MsgBox("Data tidak ada / anda batal mencari data !!")
        End Try

yanb  terakhir klik button tutup dan masukkan kodingan "end".

Setelah semua di atas telah dibuat yang terakhir adalah membuat desain untuk form berikutnya disini hanya menggunakan Menustrip. kemudian masukkan kodingannya.


  • Klik 2 kali barang dan masukkan kodingan berikut " Form3.Show()"
  • klik 2 kali Supplier dan masukkan kodingan berikut " Form4.Show()"
  • klik 2 kali pelanggan dan masukkan kodingan berikut " Form5.Show()"
  • klik 2 kali exit danmasukkan kodingan "end"
  • jika anda ingin memberi warna pada form ini, klik 2 kali pada form dan masukkan kodingan "Me.BackColor = Color.Aquamarine".
semua telah di buat dan coba jalankan aplikasinya saya yakin 100% aplikasinya akan jalan dan connect ke sql server. 

Note:
  • Jangan hilangkan salah satu kodingan di atas walaupun hanya Titik(.) karena jika dihilangkan aplikasinay akan error.
  • Passwor untuk login yaiutu Username: connect Passwor: 1234.
  • Dilarang mengcopy dan memposting ulang. hanya untuk pelajaran.
  • Jika ada pertanyaan silahkan tinggalkan Comment dibawah.
sekian artikel ini semoga bermanfaat dan berguna dan membantu teman-teman semua.



Baca Juga

closed