CreateParameter - Stored Procs on SQL7

Hi all. I'm trying to append a varchar parameter like this:

Code:

---

Dim cm As New ADODB.Command

With cm
    .ActiveConnection = cn_INOUT
    .CommandType = adCmdStoredProc
    .CommandText = "AddAttribute"
    .Parameters.Append .CreateParameter("FormatID", adInteger, adParamInput, 4, iFormatID_IN)
    .Parameters.Append .CreateParameter("AttributeName", adVarChar, adParamInput, Len(sAttributeName_IN), sAttributeName_IN)
    .Parameters.Append .CreateParameter("Data", adVarChar, adParamInput, Len(sData_IN), sData_IN)
    .Execute
End With

Set cm = Nothing

---

But I'm running into a bit of a problem when sData_IN is a zero-length string - VB errors with "The application has improperly defined a Parameter object."

It works when sData_IN is anything over zero-length so I assume I've somehow got to tell it that ... but how? My field definition allows nulls.

TIA if u can help!

Toot

Hi Toot
as you said if it allows nulls give this a go, it might work

Code:

---

Dim cm As New ADODB.Command

With cm
    .ActiveConnection = cn_INOUT
    .CommandType = adCmdStoredProc
    .CommandText = "AddAttribute"
    .Parameters.Append .CreateParameter("FormatID", adInteger, adParamInput, 4, iFormatID_IN)
    .Parameters.Append .CreateParameter("AttributeName", adVarChar, adParamInput, Len(sAttributeName_IN), sAttributeName_IN)
    .Parameters.Append .CreateParameter("Data", adVarChar, adParamInput, Len(sData_IN), iif(Len(sData_IN) < 1,Null,sData_IN))
    .Execute
End With

Set cm = Nothing

---

[Edited by Ianpbaker on 07-05-2000 at 10:53 AM]

Right what I've done, because I'm attempting to keep the code as simple as possible, is say that the length of the argument is

Code:

---

Len(sData_IN) + 1

---

- MSDN says that the size argument of the CreateParameter function is

Quote:

---

A Long value that specifies the maximum length for the parameter value in characters or bytes

---

Can anyone see if this is going to cause me a problem???

Cheers,
Toot