Replace function - error 80020009

[Séverine Donnay]

Hello,

I try to use the replace function with a very long text and I have this
error :

error '80020009'
Exception occurred.

Do you have any idee to resolve this problem ?
Thanks

[Ray Costanzo [MVP]]

Give the code.

Ray at work

"Séverine Donnay" <sd*****@winooz.net> wrote in message
news:wD********************@news20.bellglobal.com. ..

Hello,

I try to use the replace function with a very long text and I have this
error :

error '80020009'
Exception occurred.

Do you have any idee to resolve this problem ?
Thanks

[Séverine Donnay]

I've just use the replace function. If the text is too long, I have the
error but if I cut the text, I don't have any error.

montexte= Replace( montexte, "'", "''" )
"Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> a écrit dans
le message de news: #J*************@TK2MSFTNGP12.phx.gbl...

Give the code.

Ray at work

"Séverine Donnay" <sd*****@winooz.net> wrote in message
news:wD********************@news20.bellglobal.com. ..

Hello,

I try to use the replace function with a very long text and I have this
error :

error '80020009'
Exception occurred.

Do you have any idee to resolve this problem ?
Thanks

[larrybud2002]

Séverine Donnay wrote:

I've just use the replace function. If the text is too long, I have the
error but if I cut the text, I don't have any error.

montexte= Replace( montexte, "'", "''" )

What's the length of the text when there's an error?

[Séverine Donnay]

146 800

<la**********@yahoo.com> a écrit dans le message de news:
11**********************@g14g2000cwa.googlegroups. com...

Séverine Donnay wrote:

I've just use the replace function. If the text is too long, I have the
error but if I cut the text, I don't have any error.

montexte= Replace( montexte, "'", "''" )

What's the length of the text when there's an error?

[Bob Barrows [MVP]]

I've never run into this, so all I can suggest is that you handle the text
in chunks:

dim strlen,ar(),chunk, i
strlen=len(montexte)
if strlen >= <size that causes the error> then
chunk=2000
redim ar(strlen\chunk+ 1)
for i = 0 to ubound(ar)
ar(i)=replace(mid(montexte,i*chunk + 1,chunk),"'","''") next
else
montexte= Replace( montexte, "'", "''" )
end if

It looks like you are processing this string to use it in a dynamic sql
statement. You can avoid this processing by using parameters:
http://groups-beta.google.com/group/...e36562fee7804e

Bob Barrows

Séverine Donnay wrote:

I've just use the replace function. If the text is too long, I have
the error but if I cut the text, I don't have any error.

montexte= Replace( montexte, "'", "''" )
"Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> a
écrit dans le message de news: #J*************@TK2MSFTNGP12.phx.gbl...

Give the code.

Ray at work

"Séverine Donnay" <sd*****@winooz.net> wrote in message
news:wD********************@news20.bellglobal.com. ..

Hello,

I try to use the replace function with a very long text and I have
this error :

error '80020009'
Exception occurred.

Do you have any idee to resolve this problem ?
Thanks

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

[Bob Barrows [MVP]]

Bob Barrows [MVP] wrote:

I've never run into this, so all I can suggest is that you handle the
text in chunks:

dim strlen,ar(),chunk, i
strlen=len(montexte)
if strlen >= <size that causes the error> then
chunk=2000
redim ar(strlen\chunk+ 1)
for i = 0 to ubound(ar)
ar(i)=replace(mid(montexte,i*chunk + 1,chunk),"'","''")
next
oops, I forgot the join statement to put the string back together:
montexte=join(ar,"")
else
montexte= Replace( montexte, "'", "''" )
end if

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.