Koneksi Database VB

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

Menembus Batas ( Renungan Harian Kristen)

“Aku berkata kepadamu: Sesungguhnya barangsiapa percaya kepada-Ku, ia akan melakukan juga pekerjaan-pekerjaan yang Aku lakukan, bahkan pekerjaan-pekerjaan yang lebih besar daripada itu…”


Bacaan Alkitab Setahun: Mazmur 132; 2 Korintus 5; 1 Samuel 30-31


5 Maret 2010 adalah hari yang bersejarah dalam hidup Vivek Kundra karena pada tanggal tersebut Presiden Amerika Serikat, Barack Obama secara resmi mengangkatnya sebagai Ketua Bidang Teknologi Informatika (CIO) Gedung Putih. Pada jabatannya tersebut, Vivek bertanggung jawab untuk mengarahkan kebijakan dan membuat rencana investasi strategis teknologi informasi federal serta mengawasi pengeluaran teknologi federal.


Terpilihnya Vivek Kundra sebagai CIO menggantikan Karen Evans bukanlah tanpa sebab. Dalam keterangan persnya, Presiden Obama mengatakan bahwa Vivek Kundra adalah sosok yang kenyang pengalaman di arena teknologi. Kundra juga telah berjanji kepadanya untuk membuat sistem operasi pemerintahan dengan biaya rendah. Pria kelahiran 9 Oktober 1974 itu diyakini akan menjadi CIO yang memainkan peran penting dalam pemerintahan Obama.


Ada dua hal penting yang bisa kita ambil dari berita pengangkatan Kundra sebagai CIO Gedung Putih; Pertama, terpilihnya Kundra mencuatkan harapan bahwa orang muda dan khususnya yang berasal dari negara berkembang tidak kalah pintar atau hebat dengan orang-orang dari benua Eropa dan Amerika yang seringkali dianggap lebih hebat.

Kedua, perkataan Tuhan Yesus, “Aku berkata kepadamu: Sesungguhnya barangsiapa percaya kepada-Ku, ia akan melakukan juga pekerjaan-pekerjaan yang Aku lakukan, bahkan pekerjaan-pekerjaan yang lebih besar dari pada itu…” (Yoh 14:12). Di dalam Tuhan, tidak ada masalah dari mana kita berasal, bagaimana keadaan ekonomi keluarga, atau warna kulit kita. Potensi untuk melakukan hal-hal luar biasa ada pada kita, selama Tuhan bersama kita. Namun, tentu saja semua itu tidak terjadi dalam semalam. Diperlukan kerja keras, ketekunan, komitmen, serta anugerah dari Tuhan untuk kita melakukannya.

Kundra dan Presiden Obama adalah orang yang semula tidaklah diperhitungkan. Namun, akhirnya mereka dapat membuktikan bahwa anggapan sebagian besar orang meleset! Hari ini Tuhan mau mengatakan hal yang sama kepada Anda, “Ini waktunya menembus batas kemustahilan dengan Aku!” Selama Allah beserta dengan kita, tidak ada yang mustahil asalkan kita mau percaya dan melangkah seturut dengan kehendak-Nya. Kita bisa menorehkan tinta emas dalam sejarah keluarga, bahkan di dunia !

Apa yang dianggap tidak mungkin terjadi dalam hidup kita justru bisa terjadi bila kita senantiasa mengandalkan Tuhan dalam segala hal. 

sumber : http://renungan-harian-kita.blogspot.com/2011/05/menembus-batas.html

Berserah

Rangakaian kata - kata itu pun semakin hilang dan tak terucap.

Semuanya sunyi dan membisu, tak ada satupun yang peduli, dan tak sedetikpun waktu yang menyertakan harapan.

Disini .......

Kumengenang hari - hari yang telah berlalu yang telah membawaku kedalam kebekuan jiwa. Surya tenggelam mengundang rembulan, kusaksikan pergantian masa. Masa yang telah melangkahkan kakiku melewati jalan yang berdebu, debu yang datang melekat dan tak hilang. Dikakiku, ditanganku, ditubuhku..........

Debu yang telah menutupi kebusukan jiwa diri dalam nista bersama dosa, terhina....tercela oleh orang dan diri.

Setiap pandangan mataku, menatap alam berdebu yang mengelilingi tubuhku, mengotori rambutku, kulitku, pakaianku.

Dan disetiap detikpun kini hanya tergeletak jiwa - jiwa yang kosong yang terus bergema jerit kematian tangis pedih keputus asaan.

Kutersesat, melangkah dalam gulita malam yang pekat.....gelap.

Kuberjalan dengan belenggu hati dalam mimpi yang tak terbangunkan, disini aku hanya diam membeku tak mampu berbunga dan berbuah dalam kebekuan jiwa, disetiap waktuku.

Ayunan kekiku melangkah tanpa tujuan menyusuri jalan tanpa kepastian, berlari, berhenti, tak menentu. Mata - mata yang hampir buta, memandang suram...., terbuka, terpejam, meski tak mengerti. Lidah - lidah yang hampir kaku berkata tanpa ragu, berucap, terdiam, seakan tahu segalanya dan telinga - telinga yang hampir tuli, mendengar tiap hari segala suara tanpa batas namun tak terbekas.

Semua terjadi tanpa kusadari, kini aku tidak kenal siapa aku .. Terbesit sebuah rasa dihati tentang kekufuran diri.....tentang syukurku yang telah pergi. Didepan cermin kuberkaca kulihat sesosok tubuh berdiri tanpa suara, matanya memandang hina menatapku penuh cela. Senyum tipis dibibirnya hampir sirna berhias seribu cerca. Kini yang aku kenal hanyalah tentang kesombongan yang singgah didalam diri, tentang keangkuhan tanpa kesadaran nurani.

Terkadang kuinginkan yang hilang kan terulang, terkadang aku juga ingin yang pergi tuk kembali dan berharap yang duka sirna selamanya. Terkadang kubercerita dalam hampa tanpa kerja, walaupun terkadang kusesali yang terjadi menimpa diri.

Terkadang kuramaikan suasana dengan canda tawa penghapus lara dan setelah itu kusunyikan suasana dalam kebersamaan dengan kesendirian.....

Dalam Doa

Dalam do'a
Seribu harap terus terucap
Seribu pinta kurangkai kata

Dalam do'a
Kupasrah bukan menyerah
Kutinggal bersama tawakkal

Kuserahkan yang terjadi pasti
Setiap kehendak dari Ilahi
Dalam do'a

Kutumpahkan segala hina diri
Demi kasih murni sejati

Dalam do'a……..


Ya Allah…
Yang Maha mengabulkan do'a hamba - hamba-Nya
Tambahkanlah ilmu kepadaku
Sinarilah hidupku dengan ilmu itu
Agar aku tak tersesat dalam menjalani hidup ini

Ya Allah…
Yang merajai kerajaan langit dan bumi
Kikislah kesombongan yang menggunung dihatiku
Hingga aku tak menganggap orang lain lebih rendah
Dan menyadari yang terbesar hanyalah Engkau

Ya Allah yang Maha Pengasih dan Maha Penyayang
Ikatlah aku dalam tali kasihMu
Satukan hatiku dengan titian mahabbahMu
Jauhkan aku dari segala perpecahan

Ya Allah Yang Maha Pengampun
Ampunilah segala kesalahan dan dosa - dosaku
Yang sering aku lakukan disetiap detik waktu kami
Yang aku goreskan dalam setiap kata dan perbuatanku

Ya Allah…
Yang Maha Lembut dan Maha Bijaksana
Lembutkanlah hatiku
Isilah hatiku dengan hikmahMu
Sehingga ak bisa bijak dalam menghadapi hidupku

Ya Rabb….
Berikanlah kepadaku kebaikan dariMu
diduniaMu yang fana ini
Dan diakhiratMu yang kekal nanti

Yaa Rabb….
Berikanlah kepadaku ketabahan dan kesabaran
Dalam menjalani detik - detik kehidupan
Dalam menjalani segala kesulitan

Yaa Rabb…
Aku meyakini segala ketetapanMu
Berilah aku kekuatan untuk menjalaninya

Yaa Rabb...
Aku hanya mencoba untuk menjadi hambaMu
Bimbinglah aku dalam menggapainya


Amin.