
Project: Retrieving text fields from SQL Server 6.5
Hi. I've used the appendchunck method to insert text into a SQL text field,
using a stored procedure...
Dim cl2 As rdoColumn
Dim rs2 As rdoResultset
Dim qd2 As New rdoQuery
Dim cnx2 As New rdoConnection
cnx2.Connect = "uid=sa;pwd=;server=SPIDER;driver={SQL
Server};database=EcoAfrica_B;dsn="
cnx2.CursorDriver = rdUseOdbc
cnx2.EstablishConnection
Set qd2.ActiveConnection = cnx2
qd2.sql = "{ Call
EcoAfrica_B..Add_Establishments(?,?,?,?,?,?,?,?,?,?) }"
qd2(0) = txtEstablishmentName
qd2(1) = sbriefdescription
qd2(2) = var1
qd2(3) = ValidData
qd2(4) = cboTourOperators.ItemData(cboTourOperators.ListIndex)
qd2(5) = cboEstType
qd2(6) = Durations
qd2(7) = var2
qd2(8) = Web
qd2(9).AppendChunk (sfulldescription)
Set rs2 = qd2.OpenResultset(rdOpenForwardOnly)
This works fine, it adds the text to the data base. However, when I try and
retrieve that data from the database using this method...
Dim rs2 As rdoResultset
Dim qd2 As New rdoQuery
Set qd2.ActiveConnection = cnEstType
qd2.sql = "{ Call EcoAfrica_B..Sel_Establishments(?) }"
qd2(0) = gPRODID
Set rs2 = qd2.OpenResultset(rdOpenForwardOnly)
If rs2(9).Size > 0 Then
sfulldescription = RTrim(rs2(9))
End If
I get an error (Client Cursor: 11 - No update tables are specified)
I know for a fact that the data is there because I cheched it in SQL
Enterprise Manager.
Please Help!!! How do I load in data from a SQL text field, size 16