VBNet - Форум - Помогите! не работает строчка :rsAdd.Open "Spo...

Вопрос: Помогите! не работает строчка :rsAdd.Open "Spo... Добавлено: 18.02.04 17:23

Автор вопроса: Helen Chirkova

Всем привет!

Сайт ASP + VBSCript.

Разрабатываю элементарный опрос. Результаты должны помещаться в БД "Sport1" MS SQL 2000 SERVER.

файл Global.asa:

LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart

Application.Lock

Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;Password=itq;User ID=itq;Initial Catalog=OPROS;Data Source=Bab"

Application.Unlock

End Sub

Sub Application_OnEnd

Application.Lock

Conn.Close

Set Conn = Nothing

Application.Unlock

End Sub

Sub Session_OnStart

Session.Timeout = 30

End Sub

Результаты отправляются на страницу с кодом:

...

<>

...

Set rsAdd = Server.CreateObject("ADODB.Recordset")

rsAdd.Open "Sport1", Conn

rsAdd.AddNew

rsAdd.Fields("Q1") = Q1

rsAdd.Fields("Q2") = Q2

...

ВЫдает ошибку:

ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

Ответить

Ответы Всего ответов: 11

Номер ответа: 1
Автор ответа:

Svetlana

ICQ: 262385618

Вопросов: 43
Ответов: 205

Профиль | | #1

Добавлено: 18.02.04 19:20

Похоже просто не разрешено изменения в базу вносить. Это ошибка была просто постоянной на лабораторных работах.

Попробуй перед открытием добавить:

rs.CursorType = adOpenDynamic

rs.LockType = adLockOptimistic
rs.open "Select... "

Ответить

Номер ответа: 2
Автор ответа:

Helen Chirkova

Вопросов: 3
Ответов: 11

Профиль | | #2

Добавлено: 19.02.04 10:04

Уже лучше, пишет, что не определено имя "adLockOptimistic"

' Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'adOpenDynamic'

Нашла в инете инфу о том, что нужно подключить константы, подключаю:

<%
METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"
%>

Опять ошибка:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/Include/Common.inc, line 2

METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"

Что это может быть за хрень?

Ответить

Номер ответа: 3
Автор ответа:

Helen Chirkova

Вопросов: 3
Ответов: 11

Профиль | | #3

Добавлено: 19.02.04 10:06

Уже лучше ... но, пишет, что неопределенное имя adLockOptimistic

Добавила строку:

<%
METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"
%>

Опять ошибка:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/Include/Common.inc, line 2

METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"

Ответить

Номер ответа: 4
Автор ответа:

Helen Chirkova

Вопросов: 3
Ответов: 11

Профиль | | #4

Добавлено: 19.02.04 10:07

Уже лучше ... но, пишет, что неопределенное имя adLockOptimistic

Добавила строку: <%
METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"%>

Опять ошибка: Microsoft VBScript compilation error '800a0401' Expected end of statement METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"

Ответить

Номер ответа: 5
Автор ответа:

Helen Chirkova

Вопросов: 3
Ответов: 11

Профиль | | #5

Добавлено: 19.02.04 10:08

Добавила строку: <%METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"%>

Ответить

Номер ответа: 6
Автор ответа:

Helen Chirkova

Вопросов: 3
Ответов: 11

Профиль | | #6

Добавлено: 19.02.04 10:09

Добавила строку: <%METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"%>

Опять ошибка: Microsoft VBScript compilation error '800a0401' Expected end of statement .... указатель в ошибке ведет на строку TYPE="TypeLib"

Что это может быть за хрень?

Ответить

Номер ответа: 7
Автор ответа:

Helen Chirkova

Вопросов: 3
Ответов: 11

Профиль | | #7

Добавлено: 19.02.04 10:11

Написала код, добавила подключение констант: <%
METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"
%> ... Все равно выдает ошибку, но уже новую: Microsoft VBScript compilation error '800a0401' Expected end of statement ...

Что это может быть за хрень?

Ответить

Номер ответа: 8
Автор ответа:

keg

Вопросов: 1
Ответов: 5

Профиль | | #8

Добавлено: 27.02.04 16:24

Заметь, что строка заключена не в '<%.....%>'

Ответить

Номер ответа: 9 Автор ответа: Helen Chirkova Вопросов: 3 Ответов: 11	Профиль \| \| #9	Добавлено: 27.02.04 16:42
	Спасибо, у меня уже все работает Ответить

Номер ответа: 10
Автор ответа:

keg

Вопросов: 1
Ответов: 5

Профиль | | #10

Добавлено: 27.02.04 16:46

Ха, повырезали все нафиг.... цензоры...

Вместо <% поставь

Ответить

Номер ответа: 11
Автор ответа:

Helen Chirkova

Вопросов: 3
Ответов: 11

Профиль | | #11

Добавлено: 27.02.04 17:01

Пасиб ... не знала, что нужно заключать в такие скобки

Ответить

Страница: 1 |