'首先将数据读入dataset中                         Dim   ImgByt()   As   Byte                     Dim   ImgMS   As   IO.MemoryStream                         ImgByt   =   CType(dataset.Tables("表名").Rows(0).Item("图片字段名"),   Byte())                         ImgMS   =   New   IO.MemoryStream(ImgByt)                         PictureBox1.image   =   Drawing.Image.FromStream(ImgMS)   Try                             Dim   strInsert   As   String                             Dim   myconn   As   OleDb.OleDbConnection                             Dim   mycmd   As   OleDb.OleDbCommand                             myconn   =   New   OleDb.OleDbConnection("Provider=SQLOLEDB;Data   Source=qianzh;"   &   _                                                                                                                                   "Integrated   Security=SSPI;Initial   Catalog=employ")                             myconn.Open()                             strInsert   =   "INSERT   INTO   employees   (employeeid,   eName,   title,deptno)   VALUES   (   '"   &   _                                                     TxtemployeeID.Text   &   "','"   &   TxteName.Text   &   "','"   &   Txttitle.Text   &   "','"   &   Txtdeptno.Text   &   "')"                             mycmd   =   New   OleDb.OleDbCommand(strInsert,   myconn)                                 '直接对数据库进行更新操作                             mycmd.ExecuteNonQuery()                             myconn.Close()                                     Dim   adoConn   As   ADODB.Connection   =   New   ADODB.Connection()                             Dim   mstream   As   ADODB.Stream                             Dim   rs   As   ADODB.Recordset   =   New   ADODB.Recordset()                             adoConn.Open("dsn=myServer;uid=;pwd=;")                             rs.Open("SELECT   *   FROM   employees   where   employeeid='"   &   TxtemployeeID.Text   &   "'",   adoConn,   ADODB.CursorTypeEnum.adOpenKeyset,   ADODB.LockTypeEnum.adLockOptimistic)                             mstream   =   New   ADODB.Stream()                             mstream.Type   =   ADODB.StreamTypeEnum.adTypeBinary                             mstream.Open()                             Dim   path   As   String                             path   =   Txtpath.Text                             mstream.LoadFromFile(path)                             rs.Fields("image").Value   =   mstream.Read                             rs.Update()                             rs.Close()                             adoConn.Close()                                 MessageBox.Show("成功保存！",   "信息框",   _               MessageBoxButtons.OK,   MessageBoxIcon.Exclamation)                         Catch   ex                             MessageBox.Show("添加数据出错"   &   ex.ToString(),   "错误")                     End   Try                     '以下清空显示                     TxtemployeeID.Text   =   ""                     TxteName.Text   =   ""                     Txttitle.Text   =   ""                     Txtdeptno.Text   =   ""                     Txtdescript.Text   =   ""                     Txthiredate.Text   =   ""                     Txtsal.Text   =   ""                     Txttel.Text   =   ""                     Txtaddress.Text   =   ""                     Txtpath.Text   =   ""                     '       清空图片                       Pibox.Image   =   Nothing             End   Sub '打开图片                     Dim   openFileDialog1   As   New   OpenFileDialog()                     openFileDialog1.InitialDirectory   =   "c:\"                     openFileDialog1.Filter   =   "jpg   files   (*.jpg)|*.jpg|gif   files   (*.gif)|*.gif|All   files   (*.*)|*.*"                     openFileDialog1.FilterIndex   =   2                     '存储目录                     openFileDialog1.RestoreDirectory   =   True                         If   openFileDialog1.ShowDialog()   =   DialogResult.OK   Then                             '在文本框中显示图片的路径                             Dim   path   As   String                             path   =   openFileDialog1.FileName                             Txtpath.Text   =   path                             '在pinturebox中显示图片                             Pibox.SizeMode   =   PictureBoxSizeMode.StretchImage                             Pibox.Image   =   Image.FromFile(path)                     End   If Imports   System     Imports   System.IO     Imports   System.Data     '引入数据库操作类命名空间     Imports   System.Data.OleDb     '引入ADO.NET操作命名空间     Imports   Microsoft.VisualBasic             Public   Class   Form1             Inherits   System.Windows.Forms.Form                 '标志是否进行更该             Dim   flag   As   Integer   =   0             Dim   flag1   As   Integer   =   0             Public   flag2   As   Integer   =   0             Dim   eid   As   String             Dim   ADOcmd   As   OleDbDataAdapter             '建立ADODataSetCommand对象                   Dim   ds   As   DataSet   =   New   DataSet()             '建立DataSet对象               Dim   mytable   As   Data.DataTable             '建立表单对象             Dim   myrow   As   Data.DataRow             '建立数据行对象             Dim   nrow   As   Integer             '定义一个整型变量来存放当前行数             Public   Function   OpenDb()   As   Short                     Dim   SQLstr   As   String                     '定义SQL查询字符串                     SQLstr   =   "select   *   from   employees"                     '建立SQL查询语句                     ADOcmd   =   New   OleDbDataAdapter(SQLstr,   "Provider=SQLOLEDB;Data   Source=qianzh;"   &   _                                                                                                                                   "Integrated   Security=SSPI;Initial   Catalog=employ")                     '建立ADODataSetCommand对象                         ADOcmd.Fill(ds,   "employees")                     '取得表单                     mytable   =   ds.Tables.Item(0)                     '取得employees表                     nrow   =   0                     '设置为起始行                     myrow   =   mytable.Rows.Item(nrow)                     '取得第1行数据             End   Function                 Private   Sub   LoadPict()                     Dim   mstream   As   ADODB.Stream                     mstream   =   New   ADODB.Stream()                     mstream.Type   =   ADODB.StreamTypeEnum.adTypeBinary                     mstream.Open()                     '读取图片,并再当前目录存为一个临时文件temp.gif                     mstream.Write(myrow.Item(9))                     mstream.SaveToFile("temp.gif",   ADODB.SaveOptionsEnum.adSaveCreateOverWrite)                     mstream.Close()                     Dim   path   As   String   =   "temp.gif"                     PiBox.SizeMode   =   PictureBoxSizeMode.StretchImage                     PiBox.Image   =   Image.FromFile(path)             End   Sub

评论