Koneksi Database VB.net dengan ADO.NET

Koneksi Database VB.net dengan ADO.NET

0 21

Koneksi Database VB.net dengan ADO.NET
ADO.NET digunakan sebagai Data Provider untuk membangun session dengan Data Source. Sebagai bentuk koneksi dengan data source digunakanlah object Connection Object. Connection object sendiri memegang peran penting dalam koneksi antara aplikasi dengan data source. ADO.NET connection object sendiri terhubung dengan database dalam aplikasi yang kita bangun. Ketika koneksi database sudah dibuat, kita dapat memberikan perintah SQL untuk menerima data atau memanipulasi database. Setelah aktivitas berakhir kita perlu menutup koneksi ke database. Pada ADO.NET jenis koneksi ditentukan oleh sistem database yang kita gunakan. Untuk membangun koneksi database kita dapat menggunakan cara berikut:
1. SqlConnection

Kita membangun koneksi database dengan menggunakan Sql Server connection string. Syntax yang digunakan adalah sbb:

connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName; User ID=UserName;Password=Password"
Jika kita sudah memberikan nama pada instance di SQL Server kita perlu mengubahnya menjadi “Server=localhost\sqlexpress”
Untuk menutup koneksi kita gunakan method Close(). Denga method close() transaction pending akan di rools back dan koneksi akan diputus. Jika kita ingin membangun koneksi database dengan menggunakan authentikasi windows kita dapat menggunakan syntax berikut ini:
"Server= localhost; Database= employeedetails; Integrated Security=SSPI;"
sedangkan jika hendak melakukan koneksi dengan menggunakan IP syntaxnya adalah sbb:

connetionString="Data Source=IP_ADDRESS,PORT; Network Library=DBMSSOCN; Initial Catalog=DatabaseName; User ID=UserName;Password=Password"

1433 is the default port for SQL Server.
Contoh program untuk membangun koneksi DB dengan sqlConnection adalah sbb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connetionString As String Dim cnn As SqlConnection connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password" cnn = New SqlConnection(connetionString) Try cnn.Open() MsgBox("Koneksi berhasil ! ") cnn.Close() Catch ex As Exception MsgBox("koneksi database gagal ! ") End Try

Untuk melakukan pengujian kali ini saya membuat project baru, kemudian menambahkan form baru dengan sebuah button. Saya menambahkan event click pada button. Kemudian saya menambahkan source code berikut untuk melakukan koneksi dan melakukan perintah SQL. Koneksi database dapat disesuikan dengan kondisi di PC anda.

Dim connetionString As String Dim connection As SqlConnection Dim command As SqlCommand Dim sql As String connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password" sql = Select * from employe" connection = New SqlConnection(connetionString) Try connection.Open() command = New SqlCommand(sql, connection) Dim sqlReader As SqlDataReader = command.ExecuteReader() While sqlReader.Read() MsgBox(sqlReader.Item(0) & " - " & sqlReader.Item(1) & " - " & sqlReader.Item(2)) End While sqlReader.Close() command.Dispose() connection.Close() Catch ex As Exception MsgBox("Koneksi gagal ! ") End Try

2. OleDbConnection

Koneksi databasea OleDbConnection menggunakan driver yang sudah tersedia. Contoh syntax yang digukanan adalah sbb:
connetionString = “Provider = Microsoft.Jet.OLEDB.4.0; Data Source = yourdatabasename.mdb;”

contoh penggunaaannya dalah program adalah sbb:
Dim connetionString As String
Dim cnn As OleDbConnection
connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabasename.mdb;"
cnn = New OleDbConnection(connetionString)
Try
cnn.Open()
MsgBox("Connection Open ! ")
cnn.Close()
Catch ex As Exception
MsgBox("Can not open connection ! ")
End Try

3. OdbcConnection
Cara terakhir untuk membangun koneksi database adalah dengan menggunakan OdbcConnection. Untuk cara ini kita harus mendeskripsikan koneksi database degan syntax berikut:
connetionString = "Driver = {Microsoft Access Driver (*.mdb)}; DBQ = yourdatabasename.mdb;"

contoh source code adalah berikut ini:
Dim connetionString As String
Dim cnn As OdbcConnection
connetionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=yourdatabasename.mdb;"
cnn = New OdbcConnection(connetionString)
Try
cnn.Open()
MsgBox("Koneksi berhasil ! ")
cnn.Close()
Catch ex As Exception
MsgBox("koneksi database gagal ! ")
End Try

Demikian penjelasa singkat mengenai cara membuat koneksi database di VB.net dengan tiga macam cara. Semoga bermanfaat

NO COMMENTS

Leave a Reply