20-04-21, 04:47 AM
20-04-21, 05:35 AM
كود :
Dim cm1 As New OleDbCommand("Delete * From yourtable", yourcon)
Dim da1 As New OleDbDataAdapter(cm1)
Dim ds1 As New DataSet("Coin")
Try
da1.Fill(ds1, "Coin")
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try