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

Koneksi Sql Server Dengan Visual Basic 2010 - Data Siswa



Selamat sore sobat kali ini saya akan berbagi bagaimana cara koneksi sql server dengan visaul basic 2010, sebenarnya pada artikel sebelumnya telah saya bahas bagaimana cara koneksi sql server dengan visual basic, tetapi perbedaannya pada artikel kali ini saya akan membahas bagaimana mengkoneksikan data tabel data siswa yang ada pada sql server dengan visual basic 2010.
langsung aja ikuti caranya secara bertahap di bawah ini.

Koneksi Sql Server Dengan Visual Basic 2010 - Data Siswa
  • yang pertama anda lakukan membuka aplikasi sql server anda kemudian klik connect.

  • berikutnya anda membuat tabel. berikutnya isi data yang ingin anda masukkan, kemudian save dan beri nama TBLData kemudian klik save. sebenarnya terserah anda ingin memberi nama tabelnya apa tetapi harus di sesuaikan nanti pada kodingannya.

  • Setelah anda membuat tabel pada sql server anda, berikutnya yang mesti anda lakukan adalah membuka aplikasi visual studio anda. 
  • setelah aplikasinya terbuka, pilih new project kemudian beri nama datasiswa dan terakhir klik add. 
  • mulailah mendesain tampilannya. lihat gambar.

Note:
₴ Disini saya menggunakan: 
       ₴   4 Label.                     (merah)
       ₴   4 TextBox                 (kuning)
       ₴   5 Button                    (jingga)
       ₴   1 DataGridView        (biru)
₴ Lihat number pada gambar untuk mencocokkan.
  • setelah anda membuat desain seperti gambar di atas berikutnya yang mesti anda lakukan adalah memasukkan kodingannya. caranya ikuti petunjuknya di bawah ini.
₴ Klik kanan form1 kemudian pilih view code dan masukkan kode dibawah ini.
 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 dataData()
    End Sub

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


₴ Klik 2 kali (double click) form1 dan masukkan kode dibawah ini.
Call dataData()
        Me.BackColor = Color.Aquamarine


₴ Klik 2 kali (double click) button simpan dan masukkan kode dibawah ini.
 Dim sqlquery As New OleDb.OleDbCommand
        sqlquery.Connection = database
        sqlquery.CommandType = CommandType.Text
        sqlquery.CommandText = "insert into TBLData values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
        sqlquery.ExecuteNonQuery()
        MsgBox("data tersimpan")
        Call bersih()


₴ Klik 2 kali (double click) button ubah dan masukkan kode dibawah ini.
 Try
            Call koneksi()
            Dim sqlquery As New OleDb.OleDbCommand
            sqlquery.Connection = database
            sqlquery.CommandType = CommandType.Text
            sqlquery.CommandText = "Update TBLData set Nama = '" & TextBox2.Text & "',tempat_lahir = '" & TextBox3.Text & "',tgl_lahir = '" & TextBox4.Text & "' where nis = '" & TextBox1.Text & "'"
            sqlquery.ExecuteNonQuery()
            MsgBox("Data Sudah diupdate")
            Call bersih()
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try


₴ Klik 2 kali (double click) button cari dan masukkan kode dibawah ini.
  Dim nis = InputBox("Masukkan nis")
        Try
            data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("nis")}
            Dim row As DataRow
            row = data.Tables(0).Rows.Find(nis)
            TextBox1.Text = row("nis")
            TextBox2.Text = row("nama")
            TextBox3.Text = row("tempat_lahir")
            TextBox4.Text = row("tgl_lahir")

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


₴ Klik 2 kali (double click) button hapus dan masukkan kode dibawah ini.
Dim sqlquery As New OleDb.OleDbCommand
        sqlquery.Connection = database
        sqlquery.CommandType = CommandType.Text
        sqlquery.CommandText = "Delete from TBLData where nis = '" & TextBox1.Text & "'"
        sqlquery.ExecuteNonQuery()
        MsgBox("data dihapus")
        Call bersih()


₴ Klik 2 kali (double click) button tutup dan masukkan kode dibawah ini.
end

  • Berikutnya yang anda harus lakukan, yaitu membuat module, caranya klik kanan datasiswa, kemudian klik add, dan terakhir pilih module.

  • yang terakhir masukkan kode di bawah 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=DbDatasiswa;data source=.\SQLEXPRESS")
            database.Open()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Module
  • terakhir coba jalankan apakah sudah terhubung dengan tabel data yang ada pada sql server atau belum . jika sudah terhubung maka tampilannya seperti gambar di bawah ini.


  • ketika tampilannya sudah seperti di atas artinya sudah terhubung, disini anda sudah bisa memasukkan data siswa, mngedit, menghapus, mencari dan mengakhiri aplikasi yang sedang berjalan.
sekian artikel pada kali ini semoga bermanfaat bagi semuanya, jika ada yang kurang ditambahkan saja, tetapi saya yakin jika anda mengikuti tutorialnya seperti petunjuk di atas maka saya pastikan aplikasinya akan berjalan dengan baik dan terkoneksi. 



Baca Juga

closed