Ошибка с AddNew (Set db = Server.CreateObject('ADODB.Connection') db.Open 'DSN=Sovch;UID=;PWD=;' SQLQuery = 'Select * From Feedback')

@Pasha_K · Регистрация: 05.09.2007

Люди подскажите плз в чем ошибка?

Visual Basic

    Set db = Server.CreateObject('ADODB.Connection') 
    db.Open 'DSN=Sovch;UID=;PWD=;'
    SQLQuery = 'Select * From Feedback'
    Set rs = db.Execute(SQLQuery) 
 
  rs.AddNew
  rs('write_name') = var1
  rs('write_data') = var2
  rs('write_text') = var3
  rs('Article_ID') = var4
  rs.Update

Пока вместо AddNew использовал Insert into все работало, но надо обязательно AddNew. До этого ни разу не использовал. Что я не так написал (использовал примеры кода из 'Компьютер Пресс')

@parashin · 27.09.2007, 17:09

Когда ты открываешь 'RecordSet' у тебя по умолчанию тип курсора 'Read only, Forward Only',
поэтому добавлять записи ты не можешь.

Раньше ты наверное просто делал нечто типа

Connection.Execute 'Insert into ...' .

Просто установи тип курсора ReadWrite, при открытии RecordSet-а

@Pasha_K · 27.09.2007, 17:14 **[ТС]**

Спасибо!
Щас попробую...

27.09.2007, 23:32

ИМХО, тип курсора не установишь. надо так:

Visual Basic

set con = server.createobject('adodb.connection')
set rst = server.createobject('adodb.recordset')
con.open 'DSN=Sovch;UID=;PWD=;'
SQLQuery = 'Select * From Feedback'
rst.open SQLQuery, con, 1
 
rst.AddNew
...
rst.Update
rst.close
con.close
set rst = nothing
set con = nothing
 
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

@parashin · 28.09.2007, 01:29

не парь человеку мозги.

Подключаешь adovbs.inc и пользуешься любыми системными констнтами.

28.09.2007, 22:36

parashin
насчет 'не парь мозги'. кто бы говорил.
твой совет - в корне не правилен. когда ты делаешь
Set rs = db.Execute(SQLQuery)
рекордсет сразу же и создается, и открывается. поэтому изменить его тип ты не можешь, так как тип курсора можно установить только при закрытом рекордсете.

Pasha_K
файл adovbs.inc есть у тебя на машине, просто дай поиск по винтам.

@parashin · 29.09.2007, 01:57

насчет 'не парь мозги' я имел в виду использование констант ADO. НЕ надо прописывать их вручную, достаточно подключить adovbs.inc

29.09.2007, 03:12

ну тогда ладно

)) я для наглядности

@Pasha_K · 30.09.2007, 12:39 **[ТС]**

Спасибо вам за советы. Я изменил код в соответствии с рекомендацией на:

Visual Basic

  set conn = server.createobject('adodb.connection')
  set rs = server.createobject('adodb.recordset')
  conn.open 'DSN=Sovch;UID=;PWD=;'
  sql = 'Select * From Feedback'
 
  rs.Open sql, conn, 1
 
  rs.AddNew
  rs('write_name') = var1
  rs('write_data') = var2
  rs('write_text') = var3
  rs('Article_ID') = var4
  rs.Update
 
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing

Но все равно не работает (пишет 'Невозможно отобразить страницу' и т.д.). Как же так?

@pl · 30.09.2007, 15:43

Попробуй убрать UID и PWD в conn.open.
Убери галку Show friendly HTTP error massages в IE и посмотри где ошибка.

30.09.2007, 17:58

Попробуй вот это

Visual Basic

Set db = Server.CreateObject('ADODB.Connection')
  db.Open 'Connection_string'
  Set rs = Server.CreateObject('ADODB.Recordset')
  rs.ActiveConnection = db
  rs.CursorType = 1
  rs.LockType = 3
  rs.Source = 'Table_Name'
  rs.Open
  rs.AddNew
  rs('Field1') = Value1
  rs('Field2') = Value2
  rs('Field3') = Value3
  rs.Update 
  rs.Close
  Set rs=Nothing
  db.Close
  Set db=Nothing

@Pasha_K · 01.10.2007, 09:58 **[ТС]**

Большое спасибо всем за участие!
Все работает!
Вот работающий текст (вдруг кому пригодиться

Visual Basic

  set conn = server.createobject('adodb.connection')
  conn.open 'DSN=Sovch'
  sql = 'Select * From Feedback'
  set rs = server.createobject('adodb.recordset')
  set rs.ActiveConnection = conn
 
  rs.Source = sql
  rs.LockType = 3
  rs.Open
 
  rs.AddNew
  rs('write_name') = var1
  rs('write_data') = var2
  rs('write_text') = var3
  rs('Article_ID') = var4
  rs.Update
 
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing

Еще раз всем спасибо!

@parashin 1 / 1 / 0 Регистрация: 21.06.2007 Сообщений: 654
	27.09.2007, 17:09	2
	Когда ты открываешь 'RecordSet' у тебя по умолчанию тип курсора 'Read only, Forward Only', поэтому добавлять записи ты не можешь. Раньше ты наверное просто делал нечто типа Connection.Execute 'Insert into ...' . Просто установи тип курсора ReadWrite, при открытии RecordSet-а 0

@Pasha_K 0 / 0 / 0 Регистрация: 05.09.2007 Сообщений: 31
	27.09.2007, 17:14 [ТС]	3
	Спасибо! Щас попробую... 0

@parashin 1 / 1 / 0 Регистрация: 21.06.2007 Сообщений: 654
	28.09.2007, 01:29	5
	не парь человеку мозги. Подключаешь adovbs.inc и пользуешься любыми системными констнтами. 0

DimOS
	28.09.2007, 22:36	6
	parashin насчет 'не парь мозги'. кто бы говорил. твой совет - в корне не правилен. когда ты делаешь Set rs = db.Execute(SQLQuery) рекордсет сразу же и создается, и открывается. поэтому изменить его тип ты не можешь, так как тип курсора можно установить только при закрытом рекордсете. Pasha_K файл adovbs.inc есть у тебя на машине, просто дай поиск по винтам.

@parashin 1 / 1 / 0 Регистрация: 21.06.2007 Сообщений: 654
	29.09.2007, 01:57	7
	насчет 'не парь мозги' я имел в виду использование констант ADO. НЕ надо прописывать их вручную, достаточно подключить adovbs.inc 0

DimOS
	29.09.2007, 03:12	8
	ну тогда ладно )) я для наглядности

@pl 51 / 17 / 6 Регистрация: 18.05.2007 Сообщений: 1,322
	30.09.2007, 15:43	10
	Попробуй убрать UID и PWD в conn.open. Убери галку Show friendly HTTP error massages в IE и посмотри где ошибка. 0

Опции темы