Вот код /VB.NET/

Imports System.Data.OleDb
Module Module1
Public conn As OleDbConnection
Public ds As DataSet
Public cmd As OleDbCommand
Public ad As OleDbDataAdapter
Public tbl As DataTable


Public Sub Connect()

conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data.mdb")
conn.Open()
cmd = New OleDbCommand()
tbl = New DataTable()

cmd.Connection = conn
cmd.CommandType = CommandType.Text
cmd.CommandText = "select nomer,fio from rt"

'адаптер
ad = New OleDbDataAdapter()
ad.SelectCommand = cmd

ds = New DataSet()
ad.Fill(ds)
tbl = ds.Tables(0)

End Sub
End Module

Как добавить запись в таблицу rt?

Спасибо за помощь огромное!

Ругается вот на эту строку ad.Update(ds)

Dim dtr As DataRow
dtr = tbl.NewRow
dtr(0) = 99999
dtr(1) = "Пупкин"


tbl.Rows.Add(dtr)

ad.Update(ds)
ds.AcceptChanges()

MsgBox("OK")

Ругань:

An unhandled exception of type 'System.InvalidOperationException' occurred in system.data.dll

Additional information: Update requires a valid InsertCommand when passed DataRow collection with new rows.

Ага.

ad.InsertCommand = cmd

Ошибки теперь не дает , но запись не добавляет новую.

На DAO/ADO было проще...


Чуть Чуть осталось.
Селект стоит.
Что указать в инсерте

cmd.text="insert ????"
ad.InsertCommand = cmd

2 sa
Последний рывок остался.

Есть , получилось. SA спасибо. Вот что у меня получилось.

Добавление записи в акесовскую базу (может и пригодиться кому нибудь)

Imports System.Data.OleDb

Module Module1
Public conn As OleDbConnection
Public ds As DataSet
Public cmd As OleDbCommand
Public ad As OleDbDataAdapter
Public tbl As DataTable


Public Sub Connect()
'соединение
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data.mdb")
conn.Open()
'команда
cmd = New OleDbCommand()
tbl = New DataTable()

cmd.Connection = conn
cmd.CommandType = CommandType.Text
cmd.CommandText = "select nomer,fio from rt"

'адаптер
ad = New OleDbDataAdapter()
ad.SelectCommand = cmd


ds = New DataSet()
ad.Fill(ds) 'заполняем DataSet
tbl = ds.Tables(0)



End Sub
End Module


'добавление записи


Private Sub ButtonAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Add.Click

Dim dtr As DataRow

cmd.CommandText = "INSERT INTO rt(nomer, fio) VALUES (@nomer, @fio)"
cmd.Parameters.Add(New OleDbParameter("@nomer", OleDbType.Char, 5, "nomer"))
cmd.Parameters.Add(New OleDbParameter("@fio", OleDbType.Char, 15, "fio"))

ad.InsertCommand = cmd

dtr = tbl.NewRow
dtr("nomer") = "12345"
dtr("fio") = "Иванов"
tbl.Rows.Add(dtr)
ad.Update(ds)
ds.AcceptChanges()

MsgBox("OK")

End Sub

В общем то как то все запутано . Надо прописывать команды всякие , адаптеры. Гора всяких фишек ради простого действия. Все таки в DAO было как то получше , законнектился к базе, взял рекордсет и пихай туда что хочешь, а тут... АДО.НЕТ пока меня не радует.


Еще раз спасибо , правда хотелось бы сразу узнать как удалять запись и обновлять. Но это позже.

Как только грузанул записи в гриды можно рубить соединение с базой. И открывать его когда нужно делать добавление, изменение, обновление или выборки из др. мест. Идея сама по себе мне нравится.

Надо написать класс для добавления записей. Объекту класса указывать в какую таблицу пихать записи и в какие поля с типами. Уж слишком геморно это делать чистоганом через АДО.НЕТ.

Если получится более менее рулезный класс - сюда его и пихну.
SA подкинь идейки для написания такого класса.

Вообще ты молодец, отзывчивый и терпеливый.

Я понял. Буду мучить класс.