Dim con As OleDbConnection = New OleDbConnection("Provider=vfpoledb;Data Source=C:\folder\pay.dbf;Collating Sequence=machine;") Try Dim strSQL As String = "UPDATE pay.dbf SET work = 20 WHERE emp = 102" Dim cmd As OleDbCommand = New OleDbCommand(strSQL, con) con.Open() Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim myDataSet As DataSet = New DataSet() ' Using DataAdapter object fill data from database into DataSet object myDA.Fill(myDataSet, "MyTable") ' Binding DataSet to DataGridView DGV.DataSource = myDataSet.Tables("MyTable").DefaultView Catch ex As Exception MessageBox.Show(ex.Message, "Error Select Data") Finally If con IsNot Nothing Then con.Close() End If End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)