datarow string item removing CRLF 1

[evaleah]

I am querying an Access database. One of the items returned is a memo field. When I look at the database the field has carriage returns. When I execute instr(DR.Item("Body"), ControlChars.NewLine) or ControlChars.Cr, ControlChars.Lf or ControlChars.CrLf it comes back with 0 every single time. Yes there it is in the db with carriage returns. I have this same routine in a VB6 app and it returns complete with the carriage returns still in there. Am I missing something?

Thanks!
Eva

 

[mansii]

Have you tried Chr(13)?

 

[evaleah]

Yes and chr(10).

 

[mansii]

Ok. Since you want to remove the carriage returns, you can try this:

'please note that t is a datatable
      For Each table_row As DataRow in t.Rows
         MsgBox(Replace(table_row("Body").ToString, Environment.NewLine, " "))
      Next

Or, if you use the DataReader:

      Dim s As String = ""
      While dr.Read
         s = dr(1).ToString
         MsgBox(s)
         MsgBox(Replace(s, Environment.NewLine, " "))
      End While
      dr.Close()

Hope this helps.

 

[evaleah]

I ended up recoding to get around the issue but thanks for the tip. I am sure to use Environment next time!