loading...

loading...

[VB]

Imports System.Data
Imports System.Data.Odbc
Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient
Imports System.Data.OleDb
Module MdlKoneksi
    Public konek As OdbcConnection
    Public DA As OdbcDataAdapter
    Public DR As OdbcDataReader
    Public DS As DataSet
    Public CMD As OdbcCommand
    Sub bukaDB()
        Try
            konek = New OdbcConnection("DSN=crud;MultipleActiveResultSets=True")
            If konek.State = ConnectionState.Closed Then
                konek.Open()
            End If
        Catch ex As Exception
            MsgBox("konek Kedatabase Bermasalah, Periksa koneksi Jaringan Anda")
        End Try
    End Sub
End Module
[/VB]

Share This
FacebookTwitterGoogle+WhatsAppEmailPrintFriendly
loading...

Post navigation


Leave a Reply

Your email address will not be published. Required fields are marked *