ЛЮДИ ПОМОГИТЕ разобратся с Access-ом, нервы невыдерживают

[Георги]

Здравствуйте уважаемые форумщики. Пишу приложение на VB.net-e работающее с базой. В базе таблица из 3-х колонок, login, pass и detals (данные о юзоре). Чтение из базы получается, а вот изменение в базе (изменение detals юзера по его ключу login i pass) нет. Помогите соориентироватся. Спосибо.

Dim myAccessConn As OleDbConnection
Dim dbCmd As OleDbCommand = New OleDbCommand("SELECT * FROM baza")
Try
myAccessConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\baza.mdb")
Dim orderDA As OleDbDataAdapter = New OleDbDataAdapter("SELECT login, pass, detals FROM baza", myAccessConn)
myAccessConn.Open()
Dim custDS As DataSet = New DataSet()
orderDA.Fill(custDS, "baza")

Dim pRow As DataRow
' custDS.Tables("baza").Columns("login")
For Each pRow In custDS.Tables("baza").Rows
If pRow("login").ToString()=User.login And pRow("pass").ToString()=User.pass Then

pRow("detals") = User.detals
Exit For
End If
Next
orderDA.Update(custDS, "baza") <<<<<<<<<<<<< Уменя вот тут срывает ексепшн

myAccessConn.Close()
Mechashiv = Mechashiv - User.hashiv
elq = elq + User.hashiv

Catch e As Exception
End Try

Подскажите как исправить
Большое проБольшое спасибо

[Nicky]

Датасет не в режиме редактирования?

[Георги]

тоисть?

[Nicky]

Что-то типа orderDA.Edit

[Георги]

нет

[Nicky]

нет

Это значит "не в режиме" или "этого нам не надо" (нет возможности проверить)

[Георги]

это после обявления orderDA должен устоновить?

[Nicky]

Код: Выделить всё

For Each pRow In custDS.Tables("baza").Rows
  If pRow("login").ToString()=User.login And pRow("pass").ToString()=User.pass Then
    custDS.Edit
    pRow("detals") = User.detals
    custDS.Update
    Exit For
  End If
Next
orderDA.Update(custDS, "baza")

За достоверность не ручаюсь

[Георги]

У custDS-а нету edite режима

Dim custDS As DataSet = New DataSet()

[Георги]

Со синтексом уменя всо ОК, но вовремя работы возникает ошибка, вот вчом дело то

[GSerg]

Георги
Тебе за повторное создание темы как, сразу бан или строгого замечания хватит? Или может, с конфискацией? Удалить оба нафиг то есть?

[Nicky]

1. А у orderDA?
2. Может, рекордсет необновляемый?
3. Наконец, текст ошибки?

[Георги]

System.InvalidOperationException: Update requires a valid UpdateCommand when passed DataRow collection with modified rows.
at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows, DataTableMapping tableMapping)
at System.Data.Common.DbDataAdapter.Update(DataSet dataSet, String strTable)

[Георги]

Друзя, извените меня за повторное создание темы, иначе этот вопрос остался бы нерешонным, Извените за доставленную неудобность

[Nicky]

Сдаюсь (vb.net не знаю)
Верю, что проблема решится

[GSerg]

Друзя, извените меня за повторное создание темы, иначе этот вопрос остался бы нерешонным

Можно поподробнее объяснить сию логику?

[Георги]

Жаль что конкретных предложениы небыло, но спасибо, спасибо за уделенное вами время

[Lenny]

Попробуй Dim orderDA As OleDbDataAdapter = New OleDbDataAdapter("SELECT login, pass, detals FROM baza", myAccessConn,1,3)

[HandKot]

System.InvalidOperationException: Update requires a valid UpdateCommand when passed DataRow collection with modified rows.
at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows, DataTableMapping tableMapping)
at System.Data.Common.DbDataAdapter.Update(DataSet dataSet, String strTable)

в ошибке точно указано почему происходит ошибка: Update requires a valid UpdateCommand

Вам надо определить и команду обновления

пример

Код: Выделить всё

DIM cmdUpdate as SQLCommand
Dim cmdSelect AS SQLCommand

cmdSelect = NEW SQLCommand()
cmdSelect = "SELECT ..."
cmdSelect.Connection = MyConnection

cmdUpdate = New SQLCommand()
cmdUpdate = "UPDATE MyTable SET Field1 = @Val1, Field2 = @Val2"
cmdUpdate.Connection = MyConnection

Dim MyDataAdapter As New SqlDataAdapter
MyDataAdapter.SelectCommabd = cmdSelect
MyDataAdapter.UpdateCommabd = cmdUpdate

...


MyConection.Open()
MyDataAdapter.Update(...)
MyConection.Close()

Для удаления создается отдельная команда

чтобы ничего не напутать, создавайте ДатаАдапрет визардом