|
|
|
Forum Member
 
участник
Last Login: 24.10.2006 15:28
Сообщ.: 27,
Visits: 228
|
|
Может поможете? Внизу код при помощи которого я хочу добавить в 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
|
|
|
|
|
Supreme Being
модератор
Last Login: 29.10.2007 14:45
Сообщ.: 1 833,
Visits: 16 863
|
|
| Какая ошибка то? По всей видимости вы InsertCommand не задаете.
|
|
|
|
|
Forum Member
участник
Last Login: 24.10.2006 15:28
Сообщ.: 27,
Visits: 228
|
|
| Ошибка ни о чём не говорящая, "Необработанное исключение типа "System.Data.OleDb.OleDbException" произошла ошибка в System.data.dll" , если я раскоментирую нижнию строчку чтобы апдейтить. В том то и вопрос что добавить чтобы данные и в акссесе обновились?
|
|
|
|
|
Supreme Being
модератор
Last Login: 04.05.2008 13:32
Сообщ.: 7 240,
Visits: 65 445
|
|
| Чаще всего обновление данных в базе Access не выполняется из-за нехватки NTFS прав на mdb файл. Как это побороть смотри в FAQ по ASP.
|
|
|
|