从二进制下载中读取db2 clob

时间:2012-05-09 13:05:52

标签: .net db2 clob ebcdic

一年前,我曾询问过如何在.Net程序中读取DB2 EBCDIC数据。非常有帮助的answer包含了一个读取VARCHAR列的例程。

我现在面临阅读CLOB专栏。

它们的内部结构是否相似,第一个单词是否包含实际大小?或者它是整个单词,考虑到CLOB的可能长度要大得多?

谢谢!

2 个答案:

答案 0 :(得分:0)

不是大型机,但DB2 / 400(中型)似乎在表外部存储CLOB字段:

CREATE TABLE QTEMP/T1 (F1 CLOB(512))
INSERT INTO QTEMP/T1 (F1) VALUES ('TEST')

SELECT * FROM QTEMP/T1

F1
*POINTER

DSPPFM QTEMP / T1

* . . .  + . . .  . 1 . .  . . + .  . . . 2  . . . .  + . . .  . 3 . .
00000000 00000000 00000000 00000000 5CD7D6C9 D5E3C5D9 40404040 40404040

*...+....1....+....2....+....3..
*POINTER

您是否有任何特殊原因使用DB/2 driver来访问数据库以处理所有这些细节?这就像尝试解析.MDF文件从SQL服务器读取一样。


有关详细信息,请参阅IBM Redbooks | Large Objects with DB2 for z/OS and OS/390第4.4.1节 LOB表空间组织

答案 1 :(得分:-2)

这是如何更详细地解释如何http://ripalsoni.wordpress.com/2008/07/24/how-do-i-read-write-oracle-clob-data-in-aspnet-or-vbnet/

步骤1:添加引用 - Oracle.Dataaccess.dll(在ODP.NET中找到)

第2步:导入以下命名空间

    Imports Oracle.DataAccess.Client
    Imports Oracle.DataAccess.Types

第3步:创建连接字符串

    Public ReadOnly connectionstring = "data source = oradb;user id = rmsoni;password=rmsoni99"

第4步:创建以下公共方法

Public Sub ReadLOBData()
Dim con As New OracleConnection(connectionstring)
con.Open()
Dim sql As String = "select CLOBTEXTFIELD from TestCLOB where ID=1"
Dim cmd As OracleCommand = New OracleCommand(sql, con)
Dim dr As OracleDataReader = cmd.ExecuteReader()
dr.Read()
Dim blob As OracleClob = dr.GetOracleClob(0)
txtOutput.Text = blob.Value()
blob.Close()
dr.Close()
con.Close()
End Sub

完整的源代码 -

Public Sub WriteLOBData()
Dim connection As New OracleConnection(connectionstring)
connection.Open()

Dim strSQL As String = "INSERT INTO TestCLOB (ID,CLOBTEXTFIELD) VALUES (1,:TEXT_DATA) "
Dim paramData As New OracleParameter
paramData.Direction = ParameterDirection.Input
paramData.OracleDbType = OracleDbType.Clob
paramData.ParameterName = "TEXT_DATA"
paramData.Value = txtInput.Text

Dim cmd As New OracleCommand
cmd.Connection = connection
cmd.Parameters.Add(paramData)
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()

paramData = Nothing
cmd = Nothing
connection.Close()
End Sub