soedirman15@gmail.com atau WA 085740291996

Selasa, 19 Februari 2013

Syntax Koneksi VB.Net (2003,2005,2008) dengan DataBase (ODBC,SQL Server,MS.Accses,dan MySQL)


Pastikan anda membuat module baru pada VB .Net dengan nama Module_koneksi Copy Script dibawah ini sesuai dengan Database yang anda gunakan
1. Koneksi VB .Net Menggunakan Menggunakan ODBC
Imports System.Data.ODbC
Module Module_koneksi
Dim connection As New OdbcConnection("DSN=NAMADSN;")
Private Sub connection_open()
Try
If connection.State <> ConnectionState.Closed Thenconnection.Close()
connection.Open()
Catch ex As Exception
End Try
End Sub
Private Sub connection_close()
Try
If connection.State <> ConnectionState.Open Thenconnection.Open()
connection.Close()
Catch ex As Exception
End Try
End Sub
End Module
2. Koneksi VB .Net Dengan Database SQL Server
Imports System.Data.SqlClient
Module Module_koneksi
Dim connection As New SqlConnection("server=NAMASERVER; user=NAMAUSER; integrated security=SSPI; initial catalog=NAMADATABASE")
Private Sub connection_open()
Try
If connection.State <> ConnectionState.Closed Thenconnection.Close()
connection.Open()
Catch ex As Exception
End Try
End Sub
Private Sub connection_close()
Try
If connection.State <> ConnectionState.Open Thenconnection.Open()
connection.Close()
Catch ex As Exception
End Try
End Sub
End Module
 3. Koneksi VB .Net Dengan Database Microsoft Accses
Simpan Database Accses anda ke Folder Bin/Debug/NAMADATABASE dalam Poject VB .Net
Imports System.Data.OleDb
Module Module_koneksi
Dim connection As NewOleDbConnection("provider=Microsoft.jet.oledb.4.0;data source=" & Application.StartupPath &"\NAMADATABASE.mdb")
Private Sub connection_open()
Try
If connection.State <> ConnectionState.Closed Thenconnection.Close()
connection.Open()
Catch ex As Exception
End Try
End Sub
Private Sub connection_close()
Try
If connection.State <> ConnectionState.Open Thenconnection.Open()
connection.Close()
Catch ex As Exception
End Try
End Sub
End Module
 4. Koneksi VB .Net Dengan Database MySql
Untuk yang ini anda harus install ODBC MySql terlebih dahulu yang selanjutnya pada Project Anda Add Refernce lalu pilih ODBC MySql
Imports MySql.Data.MySqlClient
Module Module_koneksi
Dim connection As NewMySqlClientConection("server=LOCALHOST; uid=UID; pwd=PASSWORD; database=NAMADATABASE")
Private Sub connection_open()
Try
If connection.State <> ConnectionState.Closed Thenconnection.Close()
connection.Open()
Catch ex As Exception
End Try
End Sub
Private Sub connection_close()
Try
If connection.State <> ConnectionState.Open Thenconnection.Open()
connection.Close()
Catch ex As Exception
End Try
End Sub
End Module



3 komentar:

  1. Menambah ilmu pemograman nih....
    makasih artikel yang manfaat nih...

    BalasHapus
  2. Alhamdulillah terimaksih atas kebaikan anda..

    BalasHapus