- Код: Выделить всё
Dim dinamicDB As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileNames.tmpDataFile)
Dim DBAdapter As New OleDbDataAdapter()
DBAdapter.SelectCommand = New OleDbCommand("SELECT * FROM tblSrc", dinamicDB)
Dim CommandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(DBAdapter)
dinamicDB.Open()
Dim DS As DataSet = New DataSet()
DBAdapter.Fill(DS, "tblSrc")
Dim dr As DataRow
For i = 1 To FInf.MemberCount
' Эта процедура читает данные из текстового файла в экземпляр класса данных
ReadMember(TempFileR, CurrentItem)
dr = DS.Tables("tblSrc").NewRow
'Эта процедура заполняет DataRow необходимыми данными
DataRowFromMember(CurrentItem, dr)
DS.Tables("tblSrc").Rows.Add(dr)
' А вот тут возникает ошибка
DBAdapter.Update(DS, "tblSrc")
Next
'DBAdapter.Update(DS, "BiRep")
dinamicDB.Close()
возникающая следующая ошибка:
VB.NET 2002 писал(а):' e.TargetSite.DeclaringType.Name
Class that rais exception: DbDataAdapter
' e.TargetSite.Name
Method that throw current exception: Update
' e.Message
Error message: Ошибка синтаксиса в инструкции INSERT INTO.
Подскажите пожалуйста, где у меня ошибка, чего я не так делаю?