Как узнать значение поля счетчика новой записи

[bs]

Следующий код добавляет в БД новую запись:

strProvider = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Set rst = Server.CreateObject("ADODB.Connection")

rst.Open strProvider

strQuery ="INSERT INTO tbPupils (dtName, dtClass) VALUES ('Иванов', '11')"

rst.Execute (strQuery)

В таблице БД также имеется поле счетчика, значение которому присваивается автоматически.

Как, добавив запись, сразу узнать значение поля счетчика этой новой записи?

Заранее всем огромное спасибо!

[RayShade]

Ну я думаю, что:

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

rst.movelast
msgbox rst.fields("counterfieldname")


[GSerg]

Для mdb - добавлять запись через addnew, иначе никак.

[Antonariy]

Или select max(counterfieldname) from tbPupils

[GSerg]

Угу. Особенно когда записи вставляют двое.
А уж когда двое вставляют записи в таблицу с непоследовательным счётчиком...

[bs]

Спасибо. Думаю, вариант добавления через addnew подойдет. только вот не могли бы вы еще подсказать, как это оформить в коде. Просто никогда не юзал addnew в ASP... Черканите код, если не затруднит.

[Antonariy]

Угу. Особенно когда записи вставляют двое.
А уж когда двое вставляют записи в таблицу с непоследовательным счётчиком...

1. Если в транзакции - то хоть трое.
2. Я и не говорил, что это универсальное решение.

[Antonariy]

Черканите код, если не затруднит.

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

strProvider = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Set rst = Server.CreateObject("ADODB.Connection")
rst.CursorLocation=3
rst.Open strProvider
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from tbPupils where counterfieldname is null", rst, 3, 4
rs.AddNew
rs("dtName").Value="Иванов"
rs("dtClass").Value="11"
rs.UpdateBatch
msgbox rst.fields("counterfieldname")

[bs]

Большое спасибо! Все работает.

А Вы не могли бы пояснить кое-какие строки, чтобы помочь мне разобраться...
Просто мне не до конца понятно,как это работает...

rst.CursorLocation=3 - что делает вот эта строка

что означают две последние цЫфры:
rs.Open "select * from tbPupils where counterfieldname is null", rst, 3, 4

и чем отличается rs.UpdateBatch от rs.Update

извините за глупые вопросы, но мне хочется понять, как все работает
Еще раз спасибо.

[Antonariy]

rst.CursorLocation=3 - что делает вот эта строка

adUseClient - указывает использовать клиентский курсор, набор данных полностью копируется в память.

что означают две последние цЫфры:
rs.Open "select * from tbPupils where counterfieldname is null", rst, 3, 4

adOpenStatic, adLockBatchOptimistic

и чем отличается rs.UpdateBatch от rs.Update

Update сохраняет текущую запись рекордсета, а UpdateBatch сохраняет все изменения.
Это если вкратце. Подробный хелп можно получить, если подключить в референсы (например экселя) Microsoft ActiveX Data Objects 2.1. Для остальных версий встроенный хелп не работает.
Или просто открыть файл C:\WINDOWS\HELP\ado210.chm