Private Sub DATA_TOBE_SAVE() OfdBUKAFILE.Filter = "*.xlsx|*.xlsx|All files(*.*)|*.*" If OfdBUKAFILE.ShowDialog = Windows.Forms.DialogResult.OK Then Try Conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source='" & OfdBUKAFILE.FileName & "';Extended Properties=Excel 12.0;") DA = New OleDbDataAdapter("SELECT * FROM [FIXED_ORDER_MONTHLY$]", Conn) DTTemp = New DataTable Conn.Open() DA.Fill(DTTemp) 'Skip Datatable Rows.. ini skip 2 baris... ...
Media Berbagi Untuk Dunia Pemrograman VB.Net Dan C# Indonesia