Архив форумов ЦИТФорума

[glory]

База данных Oracle 9i. Ввод и вывод информации через WEB. IIS сервер, ASP страницы. Использую коннект через ODBC. Пользуюсь в основном рекордсетами.
Oracle имеет ограничение на ввод данных с помощью SQL не более 4000 символов.
Кто-нибудь может подсказать, как ввести более 4000 символов в поле CLOB (а также BLOB) и вывести данные из таблицы. Если возможно - то на простом примере:

Таблица:

TABLE "TEST" (
"P1" NUMBER(10) ,
"P2" CLOB)

Данные могут вводиться через форму с помощью двух объектов:

<input type="text" name="F1">
<textarea name="F2"></textarea>

Или что-то в этом духе. Кто может, подскажите, пожалуйста.
Пробовал использовать методы AppendChunk и GetChunk а также dbmc_lob, но где-то допускаю ошибку. Не до конца понимаю механизм ввода и вывода данных.

Заранее благодарен,
Слава.

[wildwind]

1. 4000 символов - это скорее всего ограничение ODBC драйвера. Какой драйвер юзаешь - от Oracle или от Microsoft?
Может лучше коннектиться через ADO, потому что для 9i Oracle выпустила полноценный OLEDB провайдер, который поддерживает LOB'ы и все остальное.

2. Как работаешь с dbms_lob ? (Код и ошибки)

[glory]

4000 символов - это ограничение SQL. Испольлзую драйвер Oracle. Кое-что сделал, но опять не до конца. Натолкнулся на ограничение PL/SQL. Вот пример:

Таблица в базе данных:

TABLE "TEST" (
"ID" NUMBER(10) ,
"MEMO" CLOB)

Данные могут вводиться через форму с помощью двух объектов:

<input type="text" name="F1">
<textarea name="F2"></textarea>

Процедура в той же схеме, что и таблица:

Procedure CLOB_INSERT
(
p_id in number, p_memo in varchar2
)
as
l_clob clob;
l_chunk number := 4000;
l_piece varchar2(4000);
begin
insert into test values (p_id,empty_clob()) returning memo into l_clob;
for i in 0 .. trunc(length(p_memo)/l_chunk)
loop
l_piece := substr(p_memo,1+i*l_chunk,l_chunk);
if(l_piece is not null)
then
dbms_lob.writeAppend(l_clob,length(l_piece),l_piece);
end if;
end loop;
commit;
end;

Часть кода на VB-script, где вводятся данные:

<%
clob_area = request("F2")
If len(request("F2")) >0 Then
Set Cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "clob_insert"

set param1 = cmd.CreateParameter("p_id",adInteger,adParamInput)
cmd.Parameters.Append param1
cmd.Parameters("p_id") = request("F1")

set param2 = cmd.CreateParameter("p_memo",adLongVarChar,adParamInput,1000000)
cmd.Parameters.Append param2
cmd.Parameters("p_memo").AppendChunk clob_area

Cmd.Prepared = True
Cmd.Execute
Set Cmd = Nothing
End If
%>

Но все равно могу ввести не более 32 000 символов (ограничение PL/SQL). Если попробую ввести больше - пишет:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
[Oracle][ODBC][Ora]ORA-01460: unimplemented or unreasonable conversion requested

То есть я те же проблемы перенес на сервер Oracle.
Насколько я понимаю, необходимо текст нарезать порциями и добавлять эти порции в CLOB.
Как это сделать?
Заранее благодарен за ответ.

[glory]

CM Hungry, огромное спасибо!!! (Форум www.sql.ru)
У меня все получилось!

Для тех, кого интересует эта проблема, привожу код.

Таблица в базе данных:

TABLE "TEST" (
"ID" NUMBER(10) ,
"MEMO" CLOB)

Данные могут вводиться через форму с помощью двух объектов:

<input type="text" name="F1">
<textarea name="F2"></textarea>

Ввод данных в таблицу:

<%
Const DSN = "DSN=DataBase;UID=UserName;PWD=Password;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN

Const adOpenKeyset = 1
Const adLockOptimistic = 3

FieldObject = request("F2")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "INSERT INTO Test (ID,MEMO) VALUES (" & request("F1") & ",empty_clob());"
Conn.Execute(SQL)

If len(FieldObject) >0 Then
SQL = "SELECT MEMO FROM Test WHERE ID = " & request("F1")
rs.Open SQL,Conn,adOpenKeyset,adLockOptimistic
Set ClobFieldObj = rs.Fields("MEMO")
ClobFieldObj.AppendChunk(FieldObject)
rs.update
rs.Close
End If
%>

Редактирование данных:

<%
FieldObject = request("F2")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "UPDATE Test SET MEMO = empty_clob() where ID = " & request("ID")
Conn.Execute(SQL)

If len(FieldObject) >0 Then
SQL = "SELECT MEMO FROM Test WHERE ID = " & request("ID")
rs.Open SQL,Conn,adOpenKeyset,adLockOptimistic
Set ClobFieldObj = rs.Fields("MEMO")
ClobFieldObj.AppendChunk(FieldObject)
rs.update
rs.Close
End if
%>

Всем удачи.