Dim Cn As New ADODB.Connection
Dim Rd As New ADODB.Recordset
Cn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=CX;User ID=ZT;Password=ZT;"
Cn.Open()
Dim rst As New ADODB.Recordset
rst.ActiveConnection = Cn
rst.Open("select text from test")
Dim mStream As ADODB.Stream
mStream = New ADODB.Stream
mStream.Type = ADODB.StreamTypeEnum.adTypeBinary
mStream.Open()
mStream.Write(rst.Fields("text"))
mStream.SaveToFile("c:\temp.txt")
SqlConnection _SqlConn = new SqlConnection("连接字符串");
_SqlConn.Open();
SqlDataAdapter _SqlData = new SqlDataAdapter("Select * from MyImage where id=1", _SqlConn);
DataTable _Table = new DataTable();
_SqlData.Fill(_Table);
if (_Table.Rows.Count != 0)
{
byte[] _FileBytes = (byte[])_Table.Rows[0]["ImageByte"];