Skip to main content

Macam Class Koneksi di VB.Net 2008

Sumber Gambar
Pagi All .......
Bingung nih ane mau nulis apa di blog ini, udah lama juga gak nulis di blog ane. Dari pada kelamaan bingungnya mending ane informasiin aja beberapa class koneksi yang pernah ane dapet dan ane karang atau ane modif-modif dikit.

Ok gan langsung aja ke TKP gan 

Versi pertama :

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='root'; database=dbpenjualan")
        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

Versi kedua :

Imports MySql.Data.MySqlClient
Imports MySql.Data
Module Konek
    Public Database As New MySqlConnection
    Public Tampilgbr As New MySqlCommand
    Public Tampilkangbr As MySqlDataReader
    Public Grid As New MySqlDataAdapter
    Public Ds As New DataSet
    Public Tabel As String
    Public record As New BindingSource

    Public DMLSql As New MySqlCommand
    Private con As MySqlConnection = Nothing

    Public Function ok() As MySqlConnection
        Dim constring As String
        constring = ";server=localhost" & ";user=root" & ";password=root" & ";database=dbpenjualan"
        Try
            con = New MySqlConnection(constring)
            con.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Koneksi error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Return con
    End Function

    Public Sub KoneksiDatabase()
        Try
            Database.Close()
            Database.ConnectionString = "server=localhost; user id=root; password='root'; database=dbpenjualan"
            Database.Open()
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub

End Module

Versi ketiga

Imports Microsoft.VisualBasic
Imports MySql.Data.MySqlClient

Module Module1
    Public conn As MySqlConnection
    Public da As MySqlDataAdapter
    Public ds As DataSet
    Public cmd As MySqlCommand
    Public rd As MySqlDataReader
    Public Str As String

    Public Sub Koneksi()
        Str = "server=localhost; user id=root; password='root'; database=dbpenjualan"
        conn = New MySqlConnection(Str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
End Module

Untuk implementasinya bisa disesuaikan dengan kebutuhan agan semua tergatung dari basis database yang digunakan (Access, SQL, MySQL dll) dan juga tergantung dari desain aplikasi yang agan buat.

Untuk fersi ke tiga dan kedua menggunakan Module VB Class sedangkan untuk fersi pertama menggunakan VB Class.

Maaf kata-katanya ancur2an gini gan, semoga bermanfaat aja and sampai ketemu lagi di artikel beriktunya!...

Comments

  1. kalau ada yang punya class connection selain yang ane tulis diatas bisa di share gan

    ReplyDelete

Post a Comment

Komentar spam, menyertakan link aktif dan alamat blog tidak akan muncul. Tidak semua pertanyaan sempat atau bisa dijawab. Thanks for visiting and the comment :)

Popular posts from this blog

Software Gratis Toko Online berbasis PHP

Assalamu'alaikum Warahmatullahi Wabarakatuh Temen-temen, kali ini saya mau share tentang programming lagi nih tapi sebetulnya ini sudah lama dibahas oleh blogger lainnya. Jadi disini saya hanya ingin membuat catatan kecil di blog saya supaya tidak kesulitan jika nanti ada butuh. Untuk temen-temen yang ingin belajar dan memiliki toko online sendiri mungkin bisa coba software ini. Software ini gratis dan mudah pemakaiannya. Memang software ini tidak selengkap joomla, ecommerce ataupun CMS lainnya. Namun menurut saya sudah cukup jika temen-temen ingin memiliki toko online sederhana. Nama software ini adalah shop-script dari webasyst . Shop-Script merupakan software shopping cart berbasis PHP dan bisa di download gratis dari sini . Cara menginstall dan mengkonfigurasinya pun sangat mudah. Claim yang didapat dari websitenya shop-script ini, setup awal bisa dilakukan tidak sampai 15 menit saja. Shop-script ini juga sudah mendukung payment menggunakan paypal. Beberapa fi...

Mensimulasikan Router Juniper Dengan GNS3 dan VirtualBox

Assalamu'alaikum Warahmatullahi Wabarakatuh Juniper Networks adalah salah satu dari perusahaan produsen router di dunia seperti Cisco, Mikrotik dan Alcatel. Juniper sendiri mempunyai produk yaitu switch, router dan perangkat security seperti firewall. Juniper biasanya digunakan dibagian core network. Karena juniper sudah terbukti dan terkenal kehandalannya dalam jaringan telekomunikasi. Sesuai dengan judul artikel ini, kali ini saya akan mencontohkan bagaimana supaya kita bisa mensimulasikan Juniper dengan bantuan GNS3 dan VirtualBox. Sebelum memulai, baiknya kita persiapkan terlebih dahulu semua tool yang dibutuhkan, berikut saya berikan link untuk download file-file yang perlu kalian persiapkan. Juniper JunOS Olive12.1R1.9 unduh disini . GNS3 unduh disini . VirtualBox unduh disini . Setelah semua sudah siap, dan tentunya GNS3 dan VirtualBox sudah terinstall di komputer kita ya, langkah selanjutnya bisa kita lihat di capture berikut. Buka VirtualBox, lalu masu...

Internet Indonesia Paling Lambat Se-Asia, Ini Kata Menkominfo

Didik Purwanto | Reza Wahyudi | Sabtu, 5 Mei 2012 | 08:02 WIB Ilustrasi JAKARTA, KOMPAS.com — Menteri Komunikasi dan Informatika Tifatul Sembiring angkat bicara soal hasil penelitian lembaga riset dari Amerika Serikat, Akamai, yang menyebut kecepatan internet di Indonesia dinilai paling lambat se-Asia. Menurutnya, penetapan kecepatan internet itu urusan operator, bukan pemerintah. "Saya terima tuduhan (hasil riset) itu. Tapi seharusnya itu urusan operator, kan mereka yang berjualan. Penetapan kecepatan internet itu bukan urusan pemerintah," kata Tifatul selepas melantik pengurus baru Badan Regulasi Telekomunikasi Indonesia (BRTI) di Gedung Kemenkominfo, Jakarta, Rabu (2/5/2012). Menurut Tifatul, meski bukan urusan pemerintah, Kemenkominfo tidak memiliki hak untuk memaksakan operator dalam menaikkan kecepatan internet di Tanah Air. Dengan demikian, hanya operator yang bisa menentukan kecepatan internet sekaligus tarifnya. Namun, Kemenkominfo berjanji untuk selal...