将图片存入Oracle数据库的方法（代码教程）

一、将图片存入Oracle数据库

示例表NEWS的结构为：newsid number(10),title varchar2(100),image(blob)

方法1：利用OracleCommandBuilder类(该类用于自动生成用于协调 DataSet 的更改与关联的数据库的单表命令。)

        Dim cn As New OracleConnection("data source=site;uid=gf;pwd=macro;") 
        cn.Open() 
 
        Dim da As New OracleDataAdapter("select * from news", cn) 
        Dim myCB As New OracleCommandBuilder(da) 
        Dim ds As New DataSet("news") 
        da.MissingSchemaAction = MissingSchemaAction.AddWithKey 
        Dim fs As Stream = File1.PostedFile.InputStream 'File1为文件选择框，作为服务器控件使用 
        Dim mydata(fs.Length) As Byte 
        fs.Read(mydata, 0, fs.Length) 
        fs.Close() 
        da.Fill(ds, "news") 
        Dim myRow As DataRow = ds.Tables("news").NewRow 
        myRow("newsid") = txtNewsID.Text 
        myRow("title") = txtTitle.Text 
        myRow("image") = mydata 
        ds.Tables("news").Rows.Add(myRow) 
        da.Update(ds, "news") 

方法2：利用过程

事先定义的Oracle过程为：

CREATE OR REPLACE  PROCEDURE "GF"."NEWS_ADD"  
  (in_newsid in  
   news.newsid%type, 
   in_title in news.title%type, 
   in_imag in news.image%type) 
   as 
   begin 
       insert into gf.news values(in_newsid,in_title,in_image); 
   end; 

下面是将数据存入数据库的代码：

        Dim cn As New OracleConnection("data source=site;uid=gf;pwd=macro;") 
        cn.Open() 
 
        Dim cmd As New OracleCommand("news_add", cn) 
        cmd.CommandType = CommandType.StoredProcedure 
        cmd.Parameters.Add(New OracleParameter("in_newsid", OracleType.Number, 10)) 
        cmd.Parameters("in_newsid").Value = txtNewsID.Text.Trim 
        cmd.Parameters.Add(New OracleParameter("in_title", OracleType.VarChar, 100)) 
        cmd.Parameters("in_title").Value = txtTitle.Text.Trim 
 
        Dim fs As Stream = File1.PostedFile.InputStream 
        Dim mydata(fs.Length) As Byte '定义一个字节数组用于读取图片流 
        fs.Read(mydata, 0, fs.Length) 
        fs.Close() 
 
        cmd.Parameters.Add(New OracleParameter("in_image", OracleType.Blob)) 
        cmd.Parameters("in_image").Value = mydata 
 
        cmd.ExecuteNonQuery() 
 
        cn.Close()