Koneksi ADO OLEDB vb.net dengan Ms Acces I

Definisi string koneksi database :

Namespace accesdata
Public Class databaseconnection

Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=spesies.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

-----------------------------------------------------------
String koneksi dan insert table :

Public Class accesdatabase

Public Function insert(ByVal kelompok As String, ByVal spesies As String, ByVal kelamin As String, ByVal nama As String, ByVal photo As String)

Dim mykoneksi As New accesdata.databaseconnection
Dim objcommand As New OleDbCommand("insert into [nama](kelompok,spesies,kelamin,nama,photo) values ('" & kelompok & "','" & spesies & "','" & kelamin & "','" & nama & "','" & photo & "')")

objcommand.Connection = mykoneksi.open
objcommand.CommandType = CommandType.Text
objcommand.ExecuteNonQuery()
mykoneksi.close()

End Function
End Class

---------------------------------------------------------------------
String koneksi dan update table :

Public Class accesdatabase
Public Function update(ByVal kelompok As String, ByVal spesies As String, ByVal kelamin As String, ByVal nama As String, ByVal photo As String)
Dim mykoneksi As New accesdata.databaseconnection

Dim objcommand As New OleDbCommand("update [nama]set kelompok='" & kelompok & "',spesies='" & spesies & "',kelamin='" & kelamin & "',nama='" & nama & "',photo='" & photo & "' where kelomppk='"&kelompok&"'")

objcommand.Connection = mykoneksi.open
objcommand.CommandType = CommandType.Text
objcommand.ExecuteNonQuery()
mykoneksi.close()

End Function
End Class
----------------------------------------------------------------------
String koneksi dan delete table :

Public Class accesdatabase
Public Function delete(ByVal kelompok As String, ByVal spesies As String, ByVal kelamin As String, ByVal nama As String, ByVal photo As String)
Dim mykoneksi As New accesdata.databaseconnection

Dim objcommand As New OleDbCommand("delete from [nama] where kelomppk='"&kelompok&"'")

objcommand.Connection = mykoneksi.open
objcommand.CommandType = CommandType.Text
objcommand.ExecuteNonQuery()
mykoneksi.close()

End Function
End Class
---------------------------------------------------------------------
String koneksi dan Tampil table :

Public Class accesdatabase

'Public Function select(ByVal kelompok As String, ByVal spesies As String, ByVal kelamin As String, ByVal 'nama As String, ByVal photo As String)

Dim mykoneksi As New accesdata.databaseconnection
Dim objcommand As New OleDbCommand("select * from [nama] '")

objcommand.Connection = mykoneksi.open
objcommand.CommandType = CommandType.Text
objcommand.ExecuteNonQuery()
mykoneksi.close()

End Function
End Class
---------------------------------------------------------------------
memanggil clas koneksi dan insert database

mykoneksidata.insert(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, ComboBox1.Text)

---------------------------------------------------------------------
memanggil clas koneksi dan update database

mykoneksidata.update(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, ComboBox1.Text)