PENDAHULUAN Ada Beberapa perintah query dalam VB.Net yang digunakan untuk mengelola database SQL SERVER diantaranya adalah sebagai berikut: SELECT Perintah ini digunakan untuk menampilkan tabel dalam database SQL SERVER dalam VB.Net Syntaknya adalah: SELECT * FROM Nama_Tabel INSERT Perintah ini digunakan untuk memasukkan atau menyimpan data ke dalam tabel dalam database SQL SERVER. Syntaknya adalah: INSERT INTO Nama_Tabel VALUES ( Kondisi) UPDATE Perintah ini digunakan untuk memperbarui data yang telah diedit terlebih dahulu sebelumnya. Syntak yang umum digunakan adalah: UPDATE Nama_Tabel SET nama_kolom WHERE (nama_kolom) DELETE Perintah ini digunakan untuk menghapus data yang ada di tabel dalam SQL SERVER melalui VB.Net Syntaknya adalah: DELETE FROM Nama_Tabel WHERE nama_kolom Agar bisa lebih dipahami penjelasan yang ada di atas mari langsung melakukan latihan mengelola database SQL SERVER dengan menggunakan VB.Net. A. Membuat Database dalam SQL SERVER 1. Klik Kanan pada databases lalu pilih new database
2. Maka akan muncul tampilan seperti di bawah ini:
3. Masukkan nama database sesuai dengan yang akan kita buat, contoh dibawah adalah membuat database bernama latihan_konekdb
Setelah ditulis klik ok
4. Bila berhasil maka database akan tersimpan dan terlihat seperti pada gambar di bawah ini
5. Klik database yang telah dibuat lalu klik kanan pada folder table, pilih new table
6. Sebagai contoh tabel yang akan dibuat adalah tbl_pegawai, lalu masukkan data-data di bawah sebagai berikut (dengan id_pegawai sebagai primary key) :
7. Lalu save tabel seperti gambar di bawah ini dengan nama yaitu tbl_pegawai
lalu klik ok.
8. Untuk melihat hasil tabel yang telah dibuat, maka klik kanan pada tabel yang telah dibuat lalu pilih open table, seperti gambar di bawah ini:
9. Tampilan dari tabel yang telah dibuat:
Database dalam SQL SERVER telah siap untuk dikoneksikan dengan VB.Net
B. Latihan Mengelola Database dalam SQL SERVER dengan VB.Net 1. Pertama-tama buat tampilan seperti di bawah ini
2. Masukkan Syntak Di bawah ini:
Imports System.Data.SqlClient Public Class Form1 'untuk mendeklarasikan dan koneksi kepada sqlserver Dim SqlCon As String = "Server=(local)\SQLEXPRESS;Integrated_ Security=SSPI;Database=latihan_konekdb" Dim MyCon As New SqlConnection(SqlCon) 'deklarasi koneksi database Sub TestKoneksi() MyCon = New SqlConnection(SqlCon) Try MyCon.Open() MyCon.Close() 'informasi jika koneksi dengan database sukses MsgBox("Test Koneksi Sukses...",_ MsgBoxStyle.Information) Catch ex As Exception 'informasi jika hubungan dengan database gagal MsgBox("Test Koneksi Gagal!!!", MsgBoxStyle.Critical) End Try End Sub ' deklarasi menampilkan tabel dalam database Sub Tampil() SqlCon = "SELECT * FROM tbl_pegawai"
Dim Da As New SqlDataAdapter(SqlCon, MyCon) Dim Dt As New DataTable Da.Fill(Dt) DataGridView1.DataSource = Dt End Sub 'deklarasi menyimpan data kedalam database SQL Server Sub Simpan() SqlCon = "INSERT INTO tbl_pegawai VALUES('" & TextBox1.Text_ & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "','" & TextBox5.Text &_ "')" Dim Cmd As New SqlCommand(SqlCon, MyCon) MyCon.Open() Cmd.ExecuteNonQuery() MyCon.Close() Tampil() reset() End Sub 'deklarasi untuk mengedit data Sub Edit() Dim indeksbaris As Integer indeksbaris = DataGridView1.CurrentRow.Index TextBox1.Text = DataGridView1.Item(0, indeksbaris).Value TextBox2.Text = DataGridView1.Item(1, indeksbaris).Value TextBox3.Text = DataGridView1.Item(2, indeksbaris).Value TextBox4.Text = DataGridView1.Item(3, indeksbaris).Value ComboBox1.Text = DataGridView1.Item(4, indeksbaris).Value TextBox5.Text = DataGridView1.Item(5, indeksbaris).Value End Sub Sub reset() TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal_ e As System.EventArgs) Handles Button1.Click TestKoneksi() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal_ e As System.EventArgs) Handles Button2.Click Tampil() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal_ e As System.EventArgs) Handles Button3.Click Simpan() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal_ e As System.EventArgs) Handles Button4.Click Edit()
End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal_ e As System.EventArgs) Handles Button5.Click 'deklarasi untuk mengupdate data yang telah diedit Dim indeksbaris As Integer Dim sql, id_pegawai As String indeksbaris = DataGridView1.CurrentRow.Index id_pegawai = DataGridView1.Item(0, indeksbaris).Value sql = "UPDATE tbl_pegawai SET id_pegawai = '" +_ TextBox1.Text + "', nama_pegawai = '" + TextBox2.Text + "', ttl =_ '" + TextBox3.Text + "', alamat = '" + TextBox4.Text + "', jabatan_ = '" + ComboBox1.Text + "', no_telp = '" + TextBox5.Text + "' WHERE_ id_pegawai = '" + id_pegawai + "'" If TextBox1.Text.Length = 5 Then Try Dim cmd As SqlCommand cmd = New SqlCommand(sql, MyCon) cmd.Connection = MyCon MyCon.Open() Dim status As String = cmd.ExecuteNonQuery If status > 0 Then MsgBox("proses update sukses", MsgBoxStyle.Information) MyCon.Close() End If Catch ex As Exception MsgBox("proses Update gagal", MsgBoxStyle.Critical) End Try Else MsgBox("maaf data tidak lengkap", MsgBoxStyle.Critical) End If Tampil() Reset() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal_ e As System.EventArgs) Handles Button6.Click 'Deklarasi Untuk Menghapus Data Edit() Dim indeksbaris As Integer Dim sql, id_pegawai As String indeksbaris = DataGridView1.CurrentRow.Index id_pegawai = DataGridView1.Item(0, indeksbaris).Value sql = "DELETE FROM tbl_pegawai WHERE id_pegawai = '" +_ TextBox1.Text + "'" Dim konfrim As Byte konfrim = MsgBox(" ID Pegawai = " & id_pegawai & " akan_ dihapus, yakin?", MsgBoxStyle.OkCancel) If konfrim = 1 Then Try Dim cmd As SqlCommand cmd = New SqlCommand(sql, MyCon) cmd.Connection = MyCon
MyCon.Open() Dim Status As String = cmd.ExecuteNonQuery() If Status > 0 Then MsgBox("Proses Hapus Sukses....", MsgBoxStyle.Information) MyCon.Close() End If Catch ex As Exception MsgBox(" Proses Hapus Gagal.....", MsgBoxStyle.Critical) End Try Tampil() reset() End If End Sub End Class
