cara cepat dan mudah export data sql server ke access dengan vb.net

 

 

 

Coding :

 


Imports System.Data.OleDb

 

Public Class Form1

Dim conn As OleDbConnection
Dim cmd As OleDbCommand

 

Sub Koneksi()
conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=dbexport.mdb")
conn.Open()
End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Koneksi()
cmd = New OleDbCommand("select * into test3 from [odbc;filedsn=d:\cevest\dsnexport.dsn].tblpenjualan", conn)
cmd.ExecuteNonQuery()

End Sub

End Class