Koneksi Visual Studio 2008 ke Database Server
Object Connection merupakan bagian dari Data Provider yang memiliki implementasi spesifik terhadap sumber data, yaitu Class OleDbConnection dan Class SqlConnection. Class OleDbconnection hanya dapat digunakan bila kita telah melakukan atau mengaktifkan import terhadap namespace System.Data.OleDB, sedangkan Class SqlConnection baru dapat kita gunakan bila namespace System.Data.SqlClient telah mengaktifkan import.
OleDbConnection dapat digunakan untuk mengakses berbagai sumber data dari RDBMS seperti Ms. Access, SQL Server, Oracle, MYSQL Server dan lain – lain melalui OLE DB. Sedangkan SqlConnection dapat langsung mengakses SQL Server tanpa terlebih dahulu melewati OLEDB Provider dan data dapat diakses lebih cepat.
Membuat object Koneksi langsung
Untuk melakukan atau membuat object koneksi kedatabase server secara langsung, langkah kerjanya sebagai berikut.
Langkah pertama buatlah project baru, pada contoh kali ini saya akan memberi nama pada project Server Application. Setelah itu buatlah module baru pada project dengan nama mdlkoneksi.vb, kemudian isilah sintaks sesuai dengan berikut :
Imports System.Data
Imports System.Data.Sql
Module Mdlkoneksi
Public S1TI4A As New OleDb.OleDbConnection
Public Tampil As New OleDb.OleDbCommand
Public Tampilkan As OleDb.OleDbDataReader
Public Grid As New OleDb.OleDbDataAdapter
Public DS As New DataSet
Public Table, hasilcek As String
Public Record As New BindingSource
Public noo As Integer
Public DMLSql As New OleDb.OleDbCommand
Public Sub Koneksi()
Try
S1TI4A.Close()
'server
' Database.ConnectionString = "provider =SQLOLEDB.1; Password= ; Persist Security Info=True;"
'User ID=sa; Initial Catalog=sim_akuntansi; Data source = 200.200.10.150 (Lab)
'lokal
S1TI4A.ConnectionString = "Provider=SQLOLEDB.1; Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=S1TI4A;Data Source=."
S1TI4A.Open()
'Tampil.Connection = S1TI4A
MsgBox("Complite")
Catch ex As Exception
'MsgBox(ex.ToString())
End Try
End Sub
End Module
Catatan :
Sebelum membuat sintaks diatas buatlah Database terlebih dahulu, pada contoh diatas Database saya beri nama S1TI4A.
Langkah kedua setelah kita membuat module, berikutnya adalah membuat form untuk memanggil method yang ada pada module.
Pada Button View Data isilah sintaks sebagai berikut :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Koneksi()
End Sub
Sub jurusan()
Call Koneksi()
Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from jurusan"
Tampilkan = Tampil.ExecuteReader
If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(Tampilkan("kode_jur")) Then
TextBox2.Text = "_"
Else
TextBox2.Text = Tampilkan("nama_jur")
End If
End While
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Selanjutnya jika tidak ada kesalahan pada sintaks diatas maka akan muncul pesan sebagai berikut setelah kita Run.
Pada tahap berikutnya buatlah form kedua dengan tampilan sebagai berikut :
Isilah sintaks sebagai berikut :
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
Button2.Enabled = True
Button3.Enabled = True
TextBox1.Enabled = True
End Sub
Sub cekrecord()
Call Koneksi()
Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from Jurusan where kode_jur='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil.ExecuteReader
If Tampilkan.HasRows = True Then
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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
If TextBox2.Text = "" Then Exit Sub
Call cekrecord()
Try
If hasilcek = "False" Then
Call Koneksi()
Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "Insert into Jurusan (kode_jur,nama_jur)values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
Tampil.ExecuteNonQuery()
Call Kosong()
Else
MsgBox("Data sudah ada, silahkan data yang diinput", MsgBoxStyle.Critical, "Input data")
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
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call Btubahkelompok()
End Sub
Sub Btubahkelompok()
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
If TextBox2.Text = "" Then Exit Sub
Try
Call Koneksi()
Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = " Update Jurusan set nama_jur ='" & Trim(TextBox2.Text) & "' where kode_jur = '" & Trim(TextBox1.Text) & "'"
Tampil.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 Bthapuskelompok()
End Sub
Sub Bthapuskelompok()
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 Koneksi()
Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = " Delete from Jurusan where kode_jur'" & Trim(TextBox1.Text) & "'"
Tampil.ExecuteNonQuery()
Call Kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
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 cekrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, " Informasi")
TextBox1.Focus()
End If
Else
Call Koneksi()
Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = " select * from jurusan where kode_jur ='" & Trim(TextBox1.Text) & "' "
Tampilkan = Tampil.ExecuteReader()
If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(Tampilkan("kode_jur")) Then
TextBox1.Focus()
End If
TextBox2.Text = Tampilkan("nama_jur")
End While
Else
MsgBox("Data tidak ditemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub
End Class
Membuat Laporan pada CristalReport
Langkah pertama buatlah Item baru pada project yaitu dengan cara klik kanan pada nama project kemudian New Item setelah itu pilih Reporting pada common items dan pilih CristalReport, buatlah nama baru kemudiah Add.
Pada Cristal Report gallery pilih Using the Report Wizard dan Standard pada Expert Gallery
Kemudian pada Standard Report Creation Wizard pilih OLE DB (ADO), kliklah dua kali pada make new connection maka akan muncul tampilan sebagai berikut :
Pilihlah Microsoft OLE DB Provider for SQL Server pada OLE DB Provider kemudian next. Karena pada latihan ini adalah connection lokal maka pada Connection Information, Integrated Security kita ceklist dan pada server kita isi dengan titik (.), Database kita isi dengan nama Database yang kita connectikan.
Kemudian Next dan Finish.
Jika telah terkoneksi maka pada standard Report Creating Wizard akan muncul tampilan sebagai berikut :
Kliklah dua kali kemudian next. Lalu akan muncul tampilan sebagai berikut :
Tekan next hingga muncul pada tampilan Report Styles seperti dibawah ini :
Pilihlah style yang dinginkan, kemudian finish.
Setelah selesai membuat CristalReport maka langkah selanjutnya adalah membuat form baru yang akan kita gunakan untuk melihat entri dari isi CristalReport. Kemudian masukan CristalReportViewer kedalam form tersebut.
Membuat Login.
Tambahkan login form yang berada pada windows forms pada project, seperti tampilan dibawah ini :
Kemudian masukan coding seperti berikut ini :
Public Class LoginForm1
' TODO: Insert code to perform custom authentication using the provided username and password
' (See http://go.microsoft.com/fwlink/?LinkId=35339).
' The custom principal can then be attached to the current thread's principal as follows:
' My.User.CurrentPrincipal = CustomPrincipal
' where CustomPrincipal is the IPrincipal implementation used to perform authentication.
' Subsequently, My.User will return identity information encapsulated in the CustomPrincipal object
' such as the username, display name, etc.
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "JoyNoviyana" And PasswordTextBox.Text = "xxx" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal, silahkan 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
Thank's.
Jhoeynoviyana@yahoo.com
