CONNECTED ENVIRONMENT

ADO .Net adalah sekumpulan class yang terdapat dalam .Net Framework untuk akses data dalam pemrograman .Net Tipe koneksi dalam ADO.Net:
– Connected environment
– Disconnected environment

Connected Environment sendiri merupakan gambaran tentang jalannya aplikasi yang selalu terhubung dalam sebuah database. Kelebihannya adalah kemudahan dalam mengatur keamanan data dan kepastiannya dalam mendapatkan data yang terkini. Sedangkan kelemahannya adalah adanya keterbatasan dalam menentukan jumlah pemakai yang dapat mengakses data secara bersamaan.

Contoh koneksi dengan Oracle:

Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Private xConn As New OleDbConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
xConn.ConnectionString = "Provider=msdaora;" & _
" Data Source=MyOraDB;" & _
" User Id=opie; Password=kawai;"
End Sub
End Class




Contoh koneksi dengan Microsoft Access:

Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Private xConn As New OleDbConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
xConn.ConnectionString =
"Provider=Microsoft.Jet.OleDB.4.0; " & _
"Data Source=D:\Data1\Inventory.mdb" & _
"Jet OLEDB:Database Password=rahasiaQ"
End Sub
End Class

Contoh koneksi dengan SQL Server2000:
Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
Private xConn As New SqlConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
xConn.ConnectionString = _
"Server=lokal; Database=INVENTORY_05; " & _
"UID=sa; Password=rahasia"
xConn.Open()
Catch ex As SqlException
Dim pesan As String
Dim salah As SqlError
For Each salah In ex.Errors
Select Case salah.Number
Case 17
pesan = "server tidak ditemukan"
Case 4060
pesan = "Database tolak ditemukan"
Case 18456
pesan = "UID / password salah"
Case Else
pesan = salah.Message
End Select
MsgBox(pesan, MsgBoxStyle.Information, "WARNING!!!")
Next
Catch ex As InvalidOperationException
MsgBox("Koneksi tutup terlebih dulu!", MsgBoxStyle.Exclamation, "WARNING!!!")
Catch ex As Exception
MsgBox("Koneksi Gagal", MsgBoxStyle.Critical, "STOP!!")
Finally
xConn.Close()
xConn.Dispose()
xConn = Nothing
End Try
End Sub
End Class

METODE ExecuteReader

Metode ini akan menjalankan sebuah command yang menghasilkan sekumpulan data berbentuk data reader yang mempunyai sifat read-only dan navigasinya bersifat forward-only.
Pemakaian metode ExecuteReader diawali dengan perintah pembacaan data, pelimpahan data keobjek dan menutup reader sesegera mungkin.
Contoh:
Private xComm As New SqlCommand
Dim xRead As SqlDataReader = xComm.ExecuteReader
Try
xRead.Read()
tbKode.Text = xRead("Kode")
tbNama.Text = xRead.Item(1)
Catch ex As Exception
Finally
xRead.Close()
End Try


METODE ExecuteScalar

Metode ini digunakan untuk menjalankan perintah query berupa fungsi anggregate dari sebuah database. Pemakaian metode ExecuteScalar akan menghasilkan sebuah nilai bertipe Integer yang menandakan beberapa hasi fungsi Anggregate, seperti Sum, Max, Min, Average, atau Count.
Contoh:

Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
Private xConn As New SqlConnection
Private xComm As New SqlCommand
Private xAdapter As New SqlDataAdapter
Private xDataSet As New DataSet
Dim xRead As SqlDataReader
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
xConn.ConnectionString = "Server=.; Database=Nortwind; " & _
"User ID=opie; Password=kirei"
xConn.Open()
xComm.Connection = xConn
xComm.CommandText = "Select * from dbo.Employees"
xComm.CommandType = CommandType.Text
xAdapter.SelectCommand = xComm
xAdapter.Fill(xDataSet)
DataGrid1.DataSource = xDataSet.Tables
DataGrid1.ReadOnly = True
End Sub

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Dim jml As Integer
xComm.CommandText = "Select count(*) " & _
"from dbo.Employees where Kode like ‘" & _
tbKode.Text & "%’"
jml = xComm.ExecuteScalar
lblJml.Text = jml
End Sub
Private Sub btnSelesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelesai.Click
Me.Close()
End Sub
End Class

METODE ExecuteNonQuery

Metode ini digunakan untuk menjalankan perintah-perintah query seperti INSERT, UPDATE dan DELETE. Metode ini digunakan setelah menmbuat objek Command. Metode ini akan menghasilkan sebuah nilai bertipe Integer yang menandakan berapa baris dalam table yang termodifikasi.