Imports System.Data.OleDb
Imports System.Data

Public Class cDatabase

Dim eConn As String

'database connection string atanıyor...
Public Sub New(ByVal sConn As String)
eConn = sConn
End Sub

'Sql ifademizi çalıştırmaya yarar...
Public Sub ExecuteQuery(ByVal sQuery As String)


Dim conn As OleDbConnection
Dim db As OleDbCommand

conn = New OleDbConnection(eConn)
conn.Open()
db = New OleDbCommand(sQuery, conn)
db.ExecuteNonQuery()

conn.Close()
db.Dispose()

End Sub

'database e veri yazma...
Public Sub sqlInsert(ByVal dataNames(), ByVal dataValues(), ByVal tableName)

Dim sqlNames As String
Dim sqlValues As String
Dim x As Integer

sqlNames = "INSERT INTO " & tableName & "("
For x = 0 To UBound(dataNames)
If x <> UBound(dataNames) Then
sqlNames = sqlNames & Replace(dataNames(x), "'", "''") & ", "
sqlValues = sqlValues & "'" & Replace(dataValues(x), "'", "''") & "', "
Else
sqlNames = sqlNames & Replace(dataNames(x), "'", "''") & ") VALUES("
sqlValues = sqlValues & "'" & Replace(dataValues(x), "'", "''") & "')"
End If
Next

ExecuteQuery(sqlNames & sqlValues)

End Sub

'databse update işlemi...
Public Sub sqlUpdate(ByVal dataNames(), ByVal dataValues(), ByVal tableName, ByVal condition)

Dim sql As String
Dim x As Integer

sql = "UPDATE " & tableName & " SET "
For x = 0 To UBound(dataNames)
If x <> UBound(dataNames) Then
sql = sql & dataNames(x) & "= '" & Replace(dataValues(x), "'", "''") & "', "
Else
sql = sql & dataNames(x) & "= '" & Replace(dataValues(x), "'", "''") & "' "
End If
Next
sql = sql & condition

ExecuteQuery(sql)

End Sub

'database den veri okuma işlemi.....
Public Function sqlSelect(ByVal sQuery As String) As OleDbDataReader

Dim conn As OleDbConnection
Dim db As OleDbCommand
Dim rs As OleDbDataReader

conn = New OleDbConnection(eConn)
conn.Open()
db = New OleDbCommand(sQuery, conn)
rs = db.ExecuteReader(CommandBehavior.CloseConnection)
Return rs

End Function

End Class

Dim cDB As New cDatabase("Provider=Microsoft.Jet.OLEDB.4.0; DATA Source=" & Server.MapPath("App_Data/db.mdb"))

Dim rs As OleDbDataReader
rs = cDB.sqlSelect("SELECT * FROM uyeler where id=2 ")
If rs.Read Then
Response.Write(rs("uye_adi"))
End If

rs.Close()
rs = Nothing