Import package yang di perlukan :
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Deklarasi
#Region "Declaration"
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim objDataAdapter As OleDbDataAdapter
Dim StrSQL As String
Dim objDataTableText As New DataTable
Dim objDataTableAccess As New DataTable
#End Region
Buat namespace dengan nama accesdata dan masukkan clas didalamnya dengan nama dataconnection :
Imports System.Data
Imports System.Data.OleDb
Namespace acces
Public Class dataconnection
Dim objcon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dotnut\My Project\project 1\fifo\bin\fifo wo cek.mdb;")
Public Function open() As OleDbConnection
objcon.Open()
Return objcon
End Function
Public Function close() As OleDbConnection
objcon.Close()
Return objcon
End Function
End Class
End Namespace
Dim objcon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dotnut\My Project\project 1\fifo\bin\fifo wo cek.mdb;")
Public Function open() As OleDbConnection
objcon.Open()
Return objcon
End Function
Public Function close() As OleDbConnection
objcon.Close()
Return objcon
End Function
End Class
End Namespace
Buat form dengan kontrol textbox,combo box,button dan label dan open file dialog
Button .... di klik
Try
OFD.Filter = "CSV (Comma delimited) (*.csv) *.csv Text Documents(*.txt) *.txt All Files (*.*) *.*"
OFD.FilterIndex = 0
OFD.FileName = ""
Dim result As DialogResult = OFD.ShowDialog()
If result = DialogResult.Cancel Then
OFD.FileName = Nothing
txtfile.Text = ""
Else
txtfile.Text = OFD.FileName
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Sebelum klik tombol import pilih combo boxnya,untuk menentukan pilihan file
Button import klik :
If cbfile.Text = "FIFO" Then
fifo()
ElseIf cbfile.Text = "F4101" Then
f4101()
ElseIf cbfile.Text = "F4801" Then
'f4801()
backup()
End If
Buat prosedure backup bila combo box memilih f4801
Sub backup()
Try
If txtfile.Text.Trim = "" Then
MsgBox("Cari file terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan(")
Exit Sub
End If
Dim TempPath, TempFile As String
TempFile = Mid(txtfile.Text.Trim, InStrRev(txtfile.Text.Trim, "\") + 1, Len(txtfile.Text.Trim))
TempPath = Microsoft.VisualBasic.Left(txtfile.Text.Trim, (Len(txtfile.Text.Trim) - Len(TempFile)))
Dim cmd As OleDbCommand = New OleDbCommand
cmd.CommandText = "INSERT INTO F4801 (WADCTO,WADOCO,WASFXO,WARCTO,WARORN,WALNID," & _
" WAPTWO,WAPARS,WATYPS,WAPRTS,WADL01,WASTCM,WACO,WAMCU,WAMMCU,WALOCN,WAAISL,WABIN,WASRST,WADCG," & _
" WASUB,WAAN8,WAANO,WAANSA,WAANPA,WAANT,WANAN8,WATRDJ,WASTRT,WADRQJ,WADPL,WASTRX,WADAP,WADAT,WAPPDT," & _
" WAWR01,WAWR02,WAWR03,WAWR04,WAWR05,WAWR06,WAWR07,WAWR08,WAWR09,WAWR10,WAVR01,WAVR02,WAAMTO,WASETC," & _
" WABRT,WAPAYT,WAAMTC,WAHRSO,WAHRSC,WAAMTA,WAHRSA,WAITM,WAAITM,WALITM,WANUMB,WAAPID,WAUORG,WASOBK," & _
" WASOCN,WASOQS,WAQTYT,WAUOM,WASHNO,WAPBTM,WATBM,WATRT,WASHTY,WAPEC,WAPPFG,WABM,WARTG,WASPRT,WAUNCD," & _
" WAINDC,WARESC,WAMOH,WATDT,WAPOU,WAPC,WALTLV,WALTCM,WACTS1,WALOTN,WALOTP,WALOTG,WARAT1,WARAT2,WADCT," & _
" WASBLI,WARKCO,WABREV,WARREV,WADRWC,WARTCH,WAPNRQ,WAREAS,WAPHSE,WAXDSP,WABOMC,WAURCD,WAURDT,WAURAT," & _
"WAURAB,WAURRF,WAUSER,WAPID,WAJOBN,WAUPMJ,WATDAY,WAAAID,WANTST,WAXRTO,WAESDN,WAACDN,WASAID,WAMPOS,WAAPRT," & _
"WAAMLC,WAAMMC,WAAMOT,WALBAM,WAMTAM) SELECT * FROM [Text;DATABASE=" & TempPath & ";].[" & TempFile.Trim & "]"
cmd.Connection = mykoneksi.open()
cmd.ExecuteNonQuery()
mykoneksi.close()
MsgBox("Import Finish", MsgBoxStyle.Information, "Import")
Catch ex As Exception
MsgBox(ex.Message)
mykoneksi.close()
Exit Sub
End Try
