'for connect Dim connstring = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\datakaryawanall.xls;Extended Properties=Excel 8.0;" Public myDate As Date
'delete button Try Dim SqlQuery As String = "DELETE * from [datakaryawanall] where NIK ='" & txtNIK.Text & "'" Dim SqlCommand As New OleDbCommand With SqlCommand .CommandText = SqlQuery .Connection = cn .ExecuteNonQuery() End With MsgBox("Satu Data Karyawan Sudah diHapus") Me.RefreshDataView() Me.bersih() Catch ex As Exception MsgBox(ex.ToString) End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)