Hi,
I have a database which has text fields which are long.
Using GetString it comes up with an error saying it could not convert blob fields into text.
I then tried this
Sub ReadBlobString(tbl As String,Rec As String, code As String) As String
Dim Cursor1 As Cursor
Dim A,S As String
S= "SELECT "&Rec&" FROM "&tbl&" WHERE Pcode = " & QUOTE & code & QUOTE
Cursor1 = SQL1.ExecQuery(S)
Cursor1.Position = 0
Dim Buffer() As Byte 'declare an empty byte array
Buffer = Cursor1.GetBlob(Rec)
Dim i As Int
A= CharsToString( Chr(Buffer(i)), 0, Buffer.Length)
Return A
End Sub
But it says I cannot cast the Char.
Any ideas anyone. These fields are text only but with CR & LF I think.
Tom
:sign0104:
I have a database which has text fields which are long.
Using GetString it comes up with an error saying it could not convert blob fields into text.
I then tried this
Sub ReadBlobString(tbl As String,Rec As String, code As String) As String
Dim Cursor1 As Cursor
Dim A,S As String
S= "SELECT "&Rec&" FROM "&tbl&" WHERE Pcode = " & QUOTE & code & QUOTE
Cursor1 = SQL1.ExecQuery(S)
Cursor1.Position = 0
Dim Buffer() As Byte 'declare an empty byte array
Buffer = Cursor1.GetBlob(Rec)
Dim i As Int
A= CharsToString( Chr(Buffer(i)), 0, Buffer.Length)
Return A
End Sub
But it says I cannot cast the Char.
Any ideas anyone. These fields are text only but with CR & LF I think.
Tom
:sign0104: