Mayumi Blogger Template

Kode class koneksi .vb

Imports System.Data

Imports System.Data.OleDb

class koneksi

Public conn As
String = "Provider=Microsoft.jet.oledb.4.0;data source=mhs.mdb"

Public objconn As OleDbConnection

Public objcommand As OleDbCommand

Public dreader As OleDbDataReader

Public strsql As
String

Public
Sub buka()

Try

objconn = New OleDbConnection(conn)

objconn.Open()

Catch ex As Exception

objconn.Close()

End
Try

End
Sub

Public
Sub bukakoneksi()

objconn = New OleDbConnection(conn)

If objconn.State <> ConnectionState.Closed Then objconn.Close()

objconn.Open()

End
Sub

End
class