Добавление данных

Vnt
Дата: 11.04.2006 16:11:52
Проблема в том, что данные не добавляются в таблицу Access

Вот код(vb.net):

Dim SSQL As String
SSQL = "select * from Met"
Com = New OleDbCommand(SSQL, Con)
Com.Connection = Con
Try
AD = New OleDbDataAdapter()
AD.SelectCommand = Com
AD.Fill(ds, "Met")
Dim Row As Data.DataRow
Row = ds.Tables("Met").NewRow
Row("Code") = 4
Row("Value") = 24
ds.Tables("Met").Rows.Add(Row)
'обновление данных ?????
AD.Update(ds)

пыталась так:

If ds.HasChanges() Then
AD.Update(ds.GetChanges(DataRowState.Added))
End If

и так
AD.Update(ds)
ds.AcceptChanges()

и так
Dim ChR As DataSet = ds.GetChanges()
AD.Update(ChR, "Met")
ds.Merge(ChR)

мне ничего не помогло :(
что я не так делаю?
buser
Дата: 11.04.2006 16:20:28
Наличие SelectCommand... вас не накакую мысль не наводит? :) Типа... UpdateCommand
Vnt
Дата: 11.04.2006 16:23:25
AD.UpdateCommand = Com
если так писать, то не помогает :( может надо что-то до или после дописывать?
BodyaComUa
Дата: 11.04.2006 17:15:11
Вместо одной строки AD.Update(ds)

Надо такое:

Dim com1 As OleDb.OleDbCommand
com1 = New OleDb.OleDbCommand("", Con)
com1.CommandText = "INSERT INTO Met ([Code], [Value]) VALUES (?, ?)"
com1.Parameters.Add("Code", System.Data.OleDb.OleDbType.Integer, 0, "Code")
com1.Parameters.Add("Value", System.Data.OleDb.OleDbType.Integer, 0, "Value")
AD.InsertCommand = com1
AD.Update(ds, "Met")
Vnt
Дата: 11.04.2006 20:36:11
BodyaComUa: Спасибо ВАМ огромное, все работает!