Access Memo field in Foxpro Table 1

[JeanPhil]

Hi.

I have connected to Foxpro table using ADODB Rrecordset but I have a problem with Memo fields. When I just put the info in a textfield (ex: list.text = rs("memo_field").value) it's alright but when I try to put it in a string for a sql server insert, there is no information in the field !!!

This cause me a real big problem since I need to transfer all the infos from my Foxpro table to my Sql Server table !! Any suggestion ?

Thanks !!

 

[MarkSweetland]

Check out this thread that deals with SQL Server and Access memo fields: thread709-811502


Mark

"You guys pair up in groups of three, then line up in a circle."
- Bill Peterson, a Florida State football coach

 

[JeanPhil]

I tried the GetChuck fonction but I now get an error :

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available.

I search the web but could'nt find an appropriate answer.

Here is my code, maibe you'll see something wrong in it that I don't !!


...

field_type = rs(i).Type

Dim chunk As Variant
Dim memochunk As Variant

....
Select case field_type

Case 201 'Memo field
If IsNull(rs(i).Value) Or rs(i).Value = "" Then
sqlins = sqlins & "NULL,"
Else
chunk = rs(i).GetChunk(200)
memochunk = chunk

Do Until IsNull(chunk) = True
chunk = rs(i).GetChunk(200)
memochunk = chunk
Loop

sqlins = sqlins & "'" & memochunk & "',"

End If

End Select
...


The error appears the first time the GetChunk fonction is used. Don't know if you can help but thanks anyway.

 

[JeanPhil]

Thanks very much Mark ... I got it to work. Really appreciate the help !!!