Public Sub UploadString(ByVal myConnection As OracleConnection)
myConnection.Unicode = True
Dim myCommand As New OracleCommand("INSERT INTO Test.TextBlocks (BlockID, BlockName, BlockContent) VALUES(1,'First',:BlockText)", myConnection)
myCommand.Parameters.Add("BlockText", OracleDbType.VarChar, 50).Value = "Place here some text that requires Unicode support."
myConnection.Open()
Try
Console.WriteLine(String.Concat(myCommand.ExecuteNonQuery(), " rows affected."))
Finally
myConnection.Close()
End Try
End Sub
Public Sub DownloadString(ByVal myConnection As OracleConnection)
myConnection.Unicode = True
Dim myCommand As New OracleCommand("SELECT * FROM Test.TextBlocks", myConnection)
myConnection.Open()
Dim myReader As OracleDataReader = myCommand.ExecuteReader(CommandBehavior.Default)
Try
While myReader.Read()
Dim myString As String = CType(myReader("BlockContent"), String)
Console.WriteLine(myString)
End While
Finally
myReader.Close()
myConnection.Close()
End Try
End Sub