Catatan Programmer Coeloen

Visual Styler adalah kontrol yang digunkaan untuk mengubah tampilan dari Form beserta kontrol didalamnya. Tampilannya dapat dirubah menjadi seperti Office, Mac, atau Vista.

Penggunaannya sangat mudah, Anda tinggal menambahkan kontrol Visual Styler ke dalam Form. Lalu pilih tampilan yang diinginkan di properti VisualStyle-nya. Setelah itu simpan Project untuk melakukan perubahan.

Untuk Source Code bisa di download DISINI

Code:

Import System.Data.OleDb
public class form1
dim kns as new OleDbConnection
dim da as new OleDbDataAdapter
dim dt as new datatable
Public Sub form1_load( ...... ) mybase.load
'ini utk access 2003 kebawah
kns.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;data source=mydata.mdb;Jet Oledb:Database Password='passku'"
'Ni tuk Access 2007 kebawah

'kns.ConnectionString = "Provider = Microsoft.Ace.OleDb.12.0;data
source=*.mdb/*accdb;Jet Oledb:Database Password='passku'"
da.SelectCommand=new oledbCommand("select * from tabel1",kns)
da.fill(dt)
datagridview1.datasource=dt
end sub
end class


penjelasan dari coding tersebut

Imports System.Data
Imports System.Data.OleDb
Namespace AccessData
Public Class DatabaseConnection
Dim conect As New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + AppPath + "xxxx.mdb;")
Public Function open() As OleDbConnection
conect.Open()

Return conect
End Function

Public Function close() As OleDbConnection
conect.Close()
Return conect
End Function
End Class
End Namespace
Objek Connection,...
obyek Connection di gunakan untuk membuat koneksi database, kita dapat menggunakan Sqlconnection untuk SQL Server, Dan OleDBConnection Untuk koneksi ke accces,..
Untuk SQL ServerImport System.Data.SqlClient
Untuk sumber lain tinggal di ganti codingnya menjadiImport System.Data.OleDb

Code Dibawah ini untuk melakukan koneksi ke SQL ServerDim connect As New SqlClient.SqlConnection("Server = 'nama database d sql'; uid='sa'; pwd=' '; integrated security=false;database=='NCS'")

Untuk koneksi sumber yang lain misalnya acces sebagai berikut :
Dim connect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + AppPath + "nama database;")

Untuk membuka koneksi database
Connect.open()

Untuk menutup Koneksi Database
Connect.Close()