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.

Normal 0 false false false EN-US X-NONE X-NONE MicrosoftInternetExplorer4 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.

Normal 0 false false false EN-US X-NONE X-NONE MicrosoftInternetExplorer4 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 :

Normal 0 false false false EN-US X-NONE X-NONE MicrosoftInternetExplorer4 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 :

Normal 0 false false false EN-US X-NONE X-NONE MicrosoftInternetExplorer4 Kliklah dua kali kemudian next. Lalu akan muncul tampilan sebagai berikut :

Tekan next hingga muncul pada tampilan Report Styles seperti dibawah ini :

Normal 0 false false false EN-US X-NONE X-NONE MicrosoftInternetExplorer4

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.