Membuat Module Koneksi Di Vb Net 2008 Database Mysql

Ya hari ini saya akan memposting bagaimana cara membuat module koneksi di vb net,tanpa basa basi langsung saja kita mula1
Langkah 1.
Klik kanan di Solution Explorer nya nama project yang kita buat

langkah Selanjutanya Mengisi Apa saja yang dibutuhkan
OK
Imports MySql.Data.MySqlClient 


Module Module1

    Public DB As New MySql.Data.MySqlClient.MySqlConnection
    Public SQL As String
    Public CMD As MySqlCommand
    Public RS As MySqlDataReader

    Public SQL2 As String
    Public CMD2 As MySqlCommand
    Public RS2 As MySqlDataReader

    Public DS As DataSet
    Public ADP As MySqlDataAdapter
    Public Rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument

    Sub Koneksi()
        SQL = "Server=Localhost;Uid=root;Database=DBPengiriman"
        DB.ConnectionString = SQL
        DB.Open()
    End Sub

    Sub BacaData()
        CMD = New MySqlCommand(SQL, DB)
        RS = CMD.ExecuteReader
    End Sub

    Sub EksekusiData()
        CMD = New MySqlCommand(SQL, DB)
        CMD.ExecuteNonQuery()
    End Sub

    Sub EksekusiData2()
        CMD2 = New MySqlCommand(SQL2, DB)
        CMD2.ExecuteNonQuery()
    End Sub

    Function CekData(ByVal f As Form) As Boolean
        Dim ctl As Control
        CekData = False
        For Each ctl In f.Controls
            If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
                If ctl.Text = "" Then
                    MsgBox("Data tidak Lengkap", MsgBoxStyle.Critical, "Maaf")
                    CekData = True
                    Exit For
                End If
            End If
        Next
    End Function

    Public Sub BukaKunci(ByVal frm As Form)
        Dim ctrl As Control
        For Each ctrl In frm.Controls
            If TypeOf ctrl Is TextBox Then ctrl.Enabled = True
            If TypeOf ctrl Is ComboBox Then ctrl.Enabled = True
        Next
    End Sub
    Public Sub Kunci(ByVal frm As Form)
        Dim ctrl As Control
        For Each ctrl In frm.Controls
            If TypeOf ctrl Is TextBox Then ctrl.Enabled = False
            If TypeOf ctrl Is ComboBox Then ctrl.Enabled = False
        Next
    End Sub

    Public Sub BersihForm(ByVal frm As Form)
        Dim ctrl As Control
        For Each ctrl In frm.Controls
            If TypeOf ctrl Is TextBox Then ctrl.Text = ""
            If TypeOf ctrl Is ComboBox Then ctrl.Text = ""
        Next
    End Sub

    Sub AutoKombo(ByVal obj As Object)
        obj.AutoCompleteSource = AutoCompleteSource.ListItems
        obj.AutoCompleteMode = AutoCompleteMode.SuggestAppend
    End Sub

    Sub Singkat(ByVal Nama_File As String, ByVal OBJ_C As Object)
        ADP = New MySqlDataAdapter(SQL, DB)
        DS = New DataSet
        ADP.Fill(DS, Nama_File)
        DS.WriteXmlSchema(Application.StartupPath & "\Laporan\" & Nama_File & ".xsd")
        Rpt.SetDataSource(DS)
        OBJ_C.ReportSource = Rpt
    End Sub

    Sub IsiKombo(ByVal cmb As Object, ByVal xfield As String, ByVal xtable As String)
        SQL = "Select Distinct " & xfield & " from " & xtable & ""
        BacaData()
        While RS.Read
            cmb.items.Add(RS(xfield))
        End While
        RS.Close()
    End Sub

    Sub RubahTombol(ByVal Log As Byte, ByVal a1 As Object, ByVal a2 As Object, ByVal a3 As Object, ByVal a4 As Object, ByVal a5 As Object)
        Select Case Log
            Case 0
                a1.Enabled = True
                a2.Enabled = False
                a3.Enabled = False
                a4.Enabled = False
                a5.Enabled = True
                a2.Text = "Simpan"
            Case 1
                a1.Enabled = False
                a2.Enabled = True
                a3.Enabled = False
                a4.Enabled = True
                a5.Enabled = False
                a2.Text = "Simpan"
            Case 2
                a1.Enabled = False
                a2.Enabled = True
                a3.Enabled = True
                a4.Enabled = True
                a5.Enabled = False
                a2.Text = "Edit"
        End Select
    End Sub

    Sub Menuku(ByVal Anak As Form, ByVal Ortu As Form)
        Anak.MdiParent = Ortu
        Anak.Show()
    End Sub

    Public Sub KodeOtomatis(ByVal obj As Object, ByVal Table As String, ByVal Field As String, ByVal Kode1 As String, ByVal Kode2 As String, ByVal panjang As Integer)
        SQL = "SELECT " & Field & " From " & Table & " Order By " & Field & " DESC Limit 1"
        BacaData()
        Try
            RS.Read()
            obj.Text = Kode1 & Microsoft.VisualBasic.Right(RS(Field), panjang) + 1
        Catch ex As Exception
            obj.Text = Kode2
        End Try
        RS.Close()
    End Sub

    Sub Animasi(ByVal frm As Form, ByVal sJudul As String)
        Static Judul As String
        Static n As Integer
        Static Balik As Byte
        Dim Panjang As Integer

        Judul = sJudul & " "

        Panjang = Len(Judul)

        If Balik = 0 Then
            n = n + 1
            MenuUtama.Text = ".:. |" & Left(Judul, n) & "|" & " .:."
            If n = Panjang Then
                Balik = 1
            End If
        Else
            n = n - 1
            MenuUtama.Text = ".::. |" & Left(Judul, n) & "|" & " .::."
            If n = 0 Then
                Balik = 0
            End If
        End If
    End Sub
   
End Module

Related Posts:

Tweet