Релиб / Программирование / .NET / VB.NET / Помогите обновить таблицу через ADO.NET / Latest Posts

RE: Помогите обновить таблицу через ADO.NET

bazile — Mon, 30 Oct 2006 11:56:58 GMT

Чаще всего обновление данных в базе Access не выполняется из-за нехватки NTFS прав на mdb файл. Как это побороть смотри в FAQ по ASP.

RE: Помогите обновить таблицу через ADO.NET

Карась — Tue, 24 Oct 2006 15:31:39 GMT

Ошибка ни о чём не говорящая, "Необработанное исключение типа "System.Data.OleDb.OleDbException" произошла ошибка в System.data.dll" , если я раскоментирую нижнию строчку чтобы апдейтить. В том то и вопрос что добавить чтобы данные и в акссесе обновились?

RE: Помогите обновить таблицу через ADO.NET

Alexey Spirin — Tue, 24 Oct 2006 10:06:11 GMT

Какая ошибка то?

По всей видимости вы InsertCommand не задаете.

Помогите обновить таблицу через ADO.NET

Карась — Tue, 24 Oct 2006 09:08:46 GMT

Может поможете? Внизу код при помощи которого я хочу добавить в Access новую запись
, но обновить в самой базе у меня ничего не получается, на закоменнтированную строчку внизу,
выдаётся ошибка, что здесь добавить или изменить? Подскажите пожалуйста.

Module Module3
Public Sub MyAdd3()
Dim str As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Report.mdb"
Dim cn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(str)
cn.Open()
Dim strSelect As String = "Select * From tblProductionReport"
Dim dscmd As New System.Data.OleDb.OleDbDataAdapter(strSelect, cn)
Dim ds As New DataSet
dscmd.Fill(ds, "tblProductionReport")

Dim dt As DataTable = ds.Tables.Item("tblProductionReport")
Dim row As DataRow
row = ds.Tables("tblProductionReport").NewRow()
'For Each row In dt.Rows
'MsgBox("" & row.Item("Master") & ")")
'Next
cn.Close()
row.Item("Master") = "Иванова"
row.Item("Operater") = "Пытьев"
cn.Open()
ds.Tables("tblProductionReport").Rows.Add(row)

For Each row In dt.Rows
MsgBox("" & row.Item("Master") & ")")
Next

'dscmd.Update(ds, "tblProductionReport")

End Sub
End Module