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
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
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()
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
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
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()
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
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.