Database VB.Net

KONEKSI DATABASE VB.NET
Pada postingan kali ini mari kita belajar bersama tentang cara koneksi ke Database menggunakan VB.Net yang mana kita coba koneksikan ke SQL Server 2000.
Mari kita ikuti langkah-langkah dibawah ini :

• Langkah pertama mari kita buat sebuah Form yang nantinya akan kita gunakan untuk koneksi ke Database, berikut Form yang kita buat :

• Lalu masukkan source kode seperti dibawah ini :

Imports System.Data
Imports System.Data.Sql

Module ModulKoneksi
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String

Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=Jurusan;data source=AGIL-PC"
database.Open()
MessageBox.Show("Asyik.. Koneksi ke Database berhasil")
Catch ex As Exception
MessageBox.Show("Waduh.. Koneksi Gagal Bro")
End
End Try
End Sub

End Module

• Setelah itu mari kita buat Form kedua yang mana form ini berfungsi untuk menginput data yang sudah kita entri, berikut tampilan Form :

 
• Lalu mari kita buat Source code seperti dibawah ini :

Public Class Form2

Sub kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Button1.Text = "Tambah"
Button2.Text = "Ubah"
Button3.Text = "Hapus"
Button4.Text = "Keluar"
Button1.Enabled = True 'enable=fungsi aktif/tidaknya sebuah objek
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
End Sub
Sub celrecord()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where Kode_jur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader
If tampilkan.HasRows = True Then ''ada atau tidak recod yg dimaksukkan
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call simpankelompok()
End Sub
Sub simpankelompok()
If Button1.Text = "Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dengan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Call celrecord()
Try
If hasilcek = "False" Then
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Insert into Jurusan (Kode_jur,Nama_jur)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
tampil2.ExecuteNonQuery()
Call kosong()
Else
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call kosong()
Call netral()
End If
End Sub
Sub ubahkelompok()
If Button2.Text = "Ubah" Then
TextBox1.Text = ""
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update Jurusan set Nama_jur='" & TextBox2.Text & "'where Kode_jur='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call ubahkelompok()
End Sub
Sub hapuskelompok()
If Button3.Text = "Hapus" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from Jurusan where Kode_jur='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapuskelompok()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Button1.Text = "Simpan" Then
Call celrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode Sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Informasi")
tampilkan = tampil2.ExecuteReader
End If
Else
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " select* from Jurusan where Kode_jur='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()

If tampilkan.HasRows = True Then
While tampilkan.Read()
If (IsDBNull(tampilkan("Kode_jur"))) Then
TextBox1.Focus()
Else
TextBox2.Text = tampilkan("Nama_jur")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak ditemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub

End Class

• Lalu mari kita coba Running program dan sekaligus memasukkan data, seperti ini :

• Klik tombol Tambah dan lihatlah hasilnya !!!
• Saat kita membuat suatu koneksi maka yang terpenting adalah Security atawa Keamanan yang mana salah satunya adalah dengan menggunakan Username dan tentunya Password yang akan sangat berguna karena hanya “Sang Administrator” yang bisa login kedalam koneksi yang kita buat, maka mari kita buat Form Login dengan cara Klik kanan my project - Add – New Item – Login Form, seperti dibawah ini :

• Lalu langkah selanjutnya ialah memasukkan source kode seperti dibawah ini :

Public Class LoginForm1

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "agil" And PasswordTextBox.Text = "plusplease" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub

End Class

Jika salah msukkan User name or Pasword, muncul seperti dibawah ini :

• Langkah selanjutnya ialah membuat Form Menu yang mana kita menggunakan Form MDIParent sebagai tampilan yang akan muncul setelah kita Login, dengan cara klik Kanan my Project – Add - New Item - pilih “MDI Parent Form” seperti dibawah ini :

• Lalu masukkan source code untuk menampilkan Form yang kita inginkan untuk tampil, seperti dibawah ini :
Imports System.Windows.Forms

Public Class MDIParent1

Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click

Form2.Show()

End Sub

• Setelah Menu telah berhasil kita buat langkah selanjutnya ialah membuat Crystal Report seperti dibawah ini dengan Klik Kanan project kita – Add – New Item – Reporting – Crystal Report.

Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)

Maka muncul tampilan seperti ini
• Dan pilih “Microsoft Ole DB Provider for SQL Server” karena yang akan kita gunakan adalah database dengan menggunakan Microsoft SQL Server 2000.
• Klik next

Dan muncul lagi yang demikian
• Untuk penggunaan server jika local isi dengan titik saja, ceklist pada integrated security dan pilih data base yang telah kita buat sebelumnya pada Microsoft SQL Server.
• Kemudian klik next-> finish

Akan muncul kaya gini
• Sekarang database Jurusan telah muncul dan kita tinggal pilih tablenya seperti pada gambar
• Klik next

Muncul seperti ini
• Klik pilihan “>>” untuk menentukan field mana yang akan dimunculkan pada report nanti.
• Klik next

Kemudian next

Klik next lagi

Kemudian pilih tampilan report yang menarik dan sesuai dengan kebutuhannya.
• Lalu klik finish

Maka akan muncul seperti ini, kemudian kita klik kanan “Preview Report”

Maka hasil akan tampil seperti ini :

Kemudian buat form baru yang akan digunakan untuk menampilkan report tersebut
• Klik kanan pada project-> add-> windows form….
• Pilih di toolbox berupa “Cristal Report Viewer”

Kemudian klik kanan dan pilih “choose a cristal report”
• Pilih cristal report yang akan dilihat lalu klik Ok.
• Lalu running form tersebut, maka akan muncul yang kira-kira seperti ini :

• Selesai dan Selamat Mencoba, Mari kita saling berbagi hal dan belajar Cerdas.
• Terima Kasih dan semoga bermanfaat.
• Comment ya !!!