vb.net 教程 8-3 数据库操作11
来源:互联网 发布:帝国cms好用吗 编辑:程序博客网 时间:2024/05/22 05:07
数据新增、删除和修改操作差不多。
无非就是新建sql语句,执行command.ExecuteNonQuery
本节例子使用的是NorthWind中的类别表。
有了前面查询和修改的知识,相信大家可以看懂下面的代码:
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click Dim odc As New OleDbConnection() odc.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;data source=Northwind.mdb;" Dim odcommand As New OleDbCommand() odcommand.CommandText = "insert into 类别(类别名称,说明,图片) values(@typename,@typeinfo,@imgType)" odcommand.Connection = odc odc.Open() odcommand.Parameters.Add("@typename", OleDbType.VarChar) odcommand.Parameters("@typename").Value = txtName.Text odcommand.Parameters.Add("@typeinfo", OleDbType.VarChar) odcommand.Parameters("@typeinfo").Value = txtInfo.Text Dim bmp As New Bitmap(200, 100) Dim g As Graphics = Graphics.FromImage(bmp) g.DrawImage(picType.Image, New Rectangle(0, 0, picType.Width, picType.Height), New Rectangle(0, 0, picType.Image.Width, picType.Image.Height), GraphicsUnit.Pixel) g.Dispose() Dim ms As New IO.MemoryStream() bmp.Save(ms, Imaging.ImageFormat.Bmp) PictureBox1.Image = bmp Dim buff() As Byte ReDim buff(ms.Length) buff = ms.ToArray ms.Close() odcommand.Parameters.Add("@imgType", OleDbType.LongVarBinary) odcommand.Parameters("@imgType").Value = buff odcommand.ExecuteNonQuery() odc.Close() End Sub
以上代码将二进制数据写入类别表中的图片列中。但是由于northwind数据库中的图片保存的和一般的图片略有区别,需要增加部分数据
要加入的数据:
Private Function getoledata() As Byte() Dim oledatastring As String = "151C2F00020000000D000E0014002100FFFFFFFF4269746D617020496D616765005061696E742E5069637475726500010500000200000007000000504272757368000000000000000000A0290000" Dim datalength As Integer = oledatastring.Length Dim buff() As Byte ReDim buff(datalength \ 2 - 1) For i As Integer = 0 To datalength - 1 Step 2 buff(i \ 2) = Convert.ToInt32(oledatastring.Substring(i, 2), 16) Next Return buff End Function
修改后的代码:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim odc As New OleDbConnection() 'odc.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;data source=D:\save\博客教程\08 数据库\Northwind1.mdb;jet oledb:database password=northwind;" odc.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;data source=Northwind.mdb;" Dim odcommand As New OleDbCommand() odcommand.CommandText = "insert into 类别(类别名称,说明,图片) values(@typename,@typeinfo,@imgType)" odcommand.Connection = odc odc.Open() odcommand.Parameters.Add("@typename", OleDbType.VarChar) odcommand.Parameters("@typename").Value = txtName.Text odcommand.Parameters.Add("@typeinfo", OleDbType.VarChar) odcommand.Parameters("@typeinfo").Value = txtInfo.Text Dim bmp As New Bitmap(172, 120) Dim g As Graphics = Graphics.FromImage(bmp) g.DrawImage(picType.Image, New Rectangle(0, 0, 172, 120), New Rectangle(0, 0, picType.Image.Width, picType.Image.Height), GraphicsUnit.Pixel) g.Dispose() Dim ms As New IO.MemoryStream() bmp.Save(ms, Imaging.ImageFormat.Bmp) Dim olebodybuff() As Byte ReDim olebodybuff(ms.Length) ms.Position = 0 'ms.Write(olebodybuff, 0, ms.Length) olebodybuff = ms.ToArray ms.Close() Dim oleheadbuff() As Byte oleheadbuff = getoledata() Dim olebuff() As Byte ReDim olebuff(olebodybuff.Length + oleheadbuff.Length - 1) oleheadbuff.CopyTo(olebuff, 0) olebodybuff.CopyTo(olebuff, oleheadbuff.Length) odcommand.Parameters.Add("@imgType", OleDbType.LongVarBinary) odcommand.Parameters("@imgType").Value = olebuff odcommand.ExecuteNonQuery() odc.Close() End Sub
非常遗憾的是,在access中可以直接在画图中打开原有的图片,但是似乎新增的图片不能打开。
但是可以在 vb.net 教程 8-3 数据库操作9-1 的例子中打开
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看vb.net 教程 目录
阅读全文
0 0
- vb.net 教程 8-3 数据库操作11
- vb.net 教程 8-3 数据库操作8
- vb.net 教程 8-3 数据库操作3
- vb.net 教程 8-3 数据库操作9-3
- vb.net 教程 8-3 数据库操作1
- vb.net 教程 8-3 数据库操作2
- vb.net 教程 8-3 数据库操作4
- vb.net 教程 8-3 数据库操作5
- vb.net 教程 8-3 数据库操作6
- vb.net 教程 8-3 数据库操作7
- vb.net 教程 8-3 数据库操作9-1
- vb.net 教程 8-3 数据库操作9-2
- vb.net 教程 8-3 数据库操作10-1
- vb.net 教程 8-3 数据库操作10-2
- vb.net 教程 8-15 数据库操作实例1
- vb.net 操作数据库
- vb.net 操作数据库
- 操作数据库(vb.net)
- Oracle SQL常用内置函数
- 为什么要学习django
- spring中@param和mybatis中@param使用区别
- Foundation5(十九)
- x = x.view(x.size(0), -1) 的理解
- vb.net 教程 8-3 数据库操作11
- 计算一个三角形的面积
- @Param注解的用法解析
- AndroidStudio生成JniLibs目录
- 【iOS笔记-2】iOS MVP总结
- c#利用SWIG调用c++dll学习总结
- Leetcode 241. Different Ways to Add Parentheses
- python
- ASP Cookie