realist

Вот код ASP, который должен добавить данные в базу ACCES, присланные формой.

<%
strConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=' & Server.MapPath('/db/klient.mdb')

Set cnn = Server.CreateObject('ADODB.Connection')
Set rs = Server.CreateObject('ADODB.Connection')

cnn.Open strConnectionString

Set rs.ActiveConnection = cnn
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Source = 'tblregistr'
rs.Open

rs.AddNew
rs.AddNew
rs.Fields('fam') = Request.Form('txtfam')
rs.Fields('im') = Request.Form('txtim')
rs.Fields('gorod') = Request.Form('txtgorod')
rs.Fields('mail') = Request.Form('txtmail')
rs.Fields('kolvo') = 1
rs.Fields('datareg') = Date(dd.mm.yy)
rs.Fields('datalast') = Date(dd.mm.yy)

rs.Update
Response.write('<meta HTTP-EQUIV=refresh content='1; URL=adtable.asp'>')
%>

ASP начинает ругаться со строки Set rs.ActiveConnection = cnn
и чтобы я не делал ниже и ниже и ниже.
Разве не реальный код?

al

кaкими слoвaми ругaется?

@palva

rs должен быть рекордсет, а у тебя он создан как Connection

0

realist

ок, спасибо. Исправил connection на recordset.
Теперь ругается на
rs.LockType = adLockOptimistic

А ругается вот как:

ADODB.Recordset error '800a0cb3'

Îáúåêò èëè ïîñòàâùèê íå ìîæåò âûïîëíèòü òðåáóåìóþ îïåðàöèþ.

/realist/dobtable.asp, line 26

По номеру строки я могу понять, что ему не нравится что-то связанное с блокировкой при изменении базы. А вот что? Опыта, блин, маловато(

@palva

Это означает: 'Объект или поставщик не может выполнить требуемую операцию.'
В строке
нужно убрать Set, но ты, наверно, убрал, раз работает.

Далее, включены ли в скрипт определения констант?
Если нет, то надо включить или подключить файл, который находится примерно здесь:

C:Program FilesCommon FilesSystemadoadovbs.inc

Других мыслей не возникает.

0

realist

Set я не убирал, а цифирки поставил, как ты сказал и работает. Спасибо, Palva!