Ass..
Mungkin dah banyak yang Membahas Tentang Cls Koneksi.
tapi gak ada salahnya Jika Ane dapat membantu teman2 yang sedang belajar Pemprograman.
Cls Koneksi adalah suatu Class / Script yang digunakan untuk menghubungkan antara Pemrograman dengan Database...
Kali ini akan dibahas beberapa Class Koneksi.
ClsKoneksi Database MySql
Imports Microsoft.VisualBasic
Imports MySql.Data.MySqlClient
Public Class ClsKoneksi
Protected tblUser = New DataTable
Protected SQL As String
Protected Cn As MySqlConnection
Protected Cmd As MySqlCommand
Protected Da As MySqlDataAdapter
Protected Ds As DataSet
Protected Dt As DataTable
Public Function OpenConn() As Boolean
Cn = New MySqlConnection("server=localhost; user id=root; password=''; database=rental")
Cn.Open()
If Cn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function
Public Sub CloseConn()
If Not IsNothing(Cn) Then
Cn.Close()
Cn = Nothing
End If
End Sub
Public Function ExecuteQuery(ByVal Query As String) As DataTable
If Not OpenConn() Then
MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")
Return Nothing
Exit Function
End If
Cmd = New MySqlCommand(Query, Cn)
'Cmd = New OleDb.OleDbCommand(Query, Cn)
'Da = New OleDb.OleDbDataAdapter
Da = New MySqlDataAdapter
Da.SelectCommand = Cmd
Ds = New Data.DataSet
Da.Fill(Ds)
Dt = Ds.Tables(0)
Return Dt
Dt = Nothing
Ds = Nothing
Da = Nothing
Cmd = Nothing
CloseConn()
End Function
Public Sub ExecuteNonQuery(ByVal Query As String)
If Not OpenConn() Then
MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")
Exit Sub
End If
Cmd = New MySqlCommand(Query, Cn)
Cmd.Connection = Cn
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Query
Cmd.ExecuteNonQuery()
Cmd = Nothing
CloseConn()
End Sub
End Class
ClsKoneksi Database Microsoft Access.
Imports Microsoft.VisualBasic
Imports System.Data.Sql
Public Class ClsKoneksi
Protected tblUser = New DataTable
Protected SQL As String
Protected Cn As OleDb.OleDbConnection
Protected Cmd As OleDb.OleDbCommand
Protected Da As OleDb.OleDbDataAdapter
Protected Ds As DataSet
Protected Dt As DataTable
Public Function OpenConn() As Boolean
Cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\film.accdb;Persist Security Info=False;")
Cn.Open()
If Cn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function
Public Sub CloseConn()
If Not IsNothing(Cn) Then
Cn.Close()
Cn = Nothing
End If
End Sub
Public Function ExecuteQuery(ByVal Query As String) As DataTable
If Not OpenConn() Then
MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")
Return Nothing
Exit Function
End If
Cmd = New OleDb.OleDbCommand(Query, Cn)
Da = New OleDb.OleDbDataAdapter
Da.SelectCommand = Cmd
Ds = New Data.DataSet
Da.Fill(Ds)
Dt = Ds.Tables(0)
Return Dt
Dt = Nothing
Ds = Nothing
Da = Nothing
Cmd = Nothing
CloseConn()
End Function
Public Sub ExecuteNonQuery(ByVal Query As String)
If Not OpenConn() Then
MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")
Exit Sub
End If
Cmd = New OleDb.OleDbCommand
Cmd.Connection = Cn
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Query
Cmd.ExecuteNonQuery()
Cmd = Nothing
CloseConn()
End Sub
End Class
ClsKoneksi Database Sql Server.
Imports Microsoft.VisualBasic
Imports System.Data.Sql
Public Class ClsKoneksi
Protected tblPengguna = New DataTable
Protected SQL As String
Protected Cn As SqlClient.SqlConnection
Protected Cmd As SqlClient.SqlCommand
Protected Da As SqlClient.SqlDataAdapter
Protected Ds As DataSet
Protected Dt As DataTable
Public Function OpenConn() As Boolean
Cn = New SqlClient.SqlConnection(“Data Source=.\SAMSUL-PC\SQLEXPRESS;Initial Catalog=Puskesmas;Integrated Security=True”)
Cn.Open()
If Cn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function
Public Sub CloseConn()
If Not IsNothing(Cn) Then
Cn.Close()
Cn = Nothing
End If
End Sub
Public Function ExecuteQuery(ByVal Query As String) As DataTable
If Not OpenConn() Then
MsgBox(“Koneksi Gagal..!!”, MsgBoxStyle.Critical, “Access Failed”)
Return Nothing
Exit Function
End If
Cmd = New SqlClient.SqlCommand(Query, Cn)
Da = New SqlClient.SqlDataAdapter
Da.SelectCommand = Cmd
Ds = New Data.DataSet
Da.Fill(Ds)
Dt = Ds.Tables(0)
Return Dt
Dt = Nothing
Ds = Nothing
Da = Nothing
Cmd = Nothing
CloseConn()
End Function
Public Sub ExecuteNonQuery(ByVal Query As String)
If Not OpenConn() Then
MsgBox(“Koneksi Gagal..!!”, MsgBoxStyle.Critical, “Access Failed..!!”)
Exit Sub
End If
Cmd = New SqlClient.SqlCommand
Cmd.Connection = Cn
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Query
Cmd.ExecuteNonQuery()
Cmd = Nothing
CloseConn()
End Sub
End Class
Sekian dulu Share dari ane..
semoga jadi manfaat buat ane maupun Buat orang lain.
0 komentar:
Posting Komentar