Hi guys
I need your help..
When I close the form I get the message “Dynamic SQL generation for the UpdateCommand is not supported against a SelectCommand that does not return any key column information.” at line obj_oledb_da.Update(dataSet). Can someone provide help..?
Thank you
Private selectConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test\;Extended Properties='text;HDR=Yes;FMT=TabDelimited';")
Private filetable As String
Private selectCommandText As String
Private dataSet As New DataSet
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
If dataSet.HasChanges() Then
Dim obj_oledb_da As System.Data.OleDb.OleDbDataAdapter
Dim command_builder As System.Data.OleDb.OleDbCommandBuilder
filetable = "data.txt"
selectCommandText = "select * from [" & filetable & "]"
obj_oledb_da = New OleDbDataAdapter(selectCommandText, selectConnection)
obj_oledb_da.TableMappings.Add("Table", "Data")
command_builder = New OleDbCommandBuilder(obj_oledb_da)
obj_oledb_da.Update(dataSet)
End If
End Sub
I need your help..
When I close the form I get the message “Dynamic SQL generation for the UpdateCommand is not supported against a SelectCommand that does not return any key column information.” at line obj_oledb_da.Update(dataSet). Can someone provide help..?
Thank you
Private selectConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test\;Extended Properties='text;HDR=Yes;FMT=TabDelimited';")
Private filetable As String
Private selectCommandText As String
Private dataSet As New DataSet
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
If dataSet.HasChanges() Then
Dim obj_oledb_da As System.Data.OleDb.OleDbDataAdapter
Dim command_builder As System.Data.OleDb.OleDbCommandBuilder
filetable = "data.txt"
selectCommandText = "select * from [" & filetable & "]"
obj_oledb_da = New OleDbDataAdapter(selectCommandText, selectConnection)
obj_oledb_da.TableMappings.Add("Table", "Data")
command_builder = New OleDbCommandBuilder(obj_oledb_da)
obj_oledb_da.Update(dataSet)
End If
End Sub