[VB.NET]如何向数据库字段中写入文件？

strsql = "insert into test(imageName,photo) "
strsql += "values( '' " & finfo.Name & " '',@photo) " ''二进制数据用@标识

Dim sqlCn As SqlConnection = New SqlConnection( "server=dell;database=study;uid=sa;pwd=; ")
sqlCn.Open()
Dim myCommand As SqlCommand = New SqlCommand(strsql, sqlCn)
myCommand.Parameters.Clear()
myCommand.Parameters.Add( "@photo ", OleDb.OleDbType.Binary)
myCommand.Parameters( "@photo ").Value = b
myCommand.ExecuteReader()

读取文件代码如下:
Dim strsql As String
strsql = "select * from test "
Dim sqlCn As SqlConnection = New SqlConnection( "server=dell;database=study;uid=sa;pwd=; ")
Dim bw As BinaryWriter
Dim bufferSize As Integer = 100 ''定义缓冲区长度为100
Dim outbyte() As Byte = New Byte(bufferSize - 1) {} ''定义缓冲区
Dim retval As Long
Dim startIndex As Long = 0
Dim dr As SqlDataReader
Dim myCommand As SqlCommand = New SqlCommand(strsql, sqlCn)
sqlCn.Open()
Dim ms As New System.IO.MemoryStream ''定义内存流对象,将数据库中存储的图像数据先放到内存流中
Try
bw = New BinaryWriter(ms)
dr = myCommand.ExecuteReader()
dr.Read()
TextBox1.Text = dr.GetString(1)
startIndex = 0
retval = dr.GetBytes(2, startIndex, outbyte, 0, bufferSize)

Do While retval = bufferSize ''循环读取余下的内容,每次读取buffersize个字节
bw.Write(outbyte)
bw.Flush() ''清空缓冲区
startIndex += bufferSize ''移动位置指针
retval = dr.GetBytes(2, startIndex, outbyte, 0, bufferSize)
Loop

Dim image As Image = image.FromStream(ms)
Me.PictureBox1.Image = image ''利用内存流在picturebox中生成图像

bw.Write(outbyte, 0, retval) ''写入最后一块数据
bw.Flush()
bw.Close()
ms.Close()
dr.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
__________________________________________________________________________
那如果是其他类型的文件呢，就不能用picturebox控件了，那如何读取呢？
__________________________________________________________________________
// 读取

int colIndex = DataReader.GetOrdinal( "MyLargeObjectColumnName ");
byte[] buffer = new byte[DataReader.GetBytes(colIndex, 0, null, 0, int.MaxValue)];
DataReader.GetBytes(colIndex, 0, buffer, 0, buffer.Length);

// 处理 buffer
__________________________________________________________________________
反正读出来全是二进制的,怎么搞随便
__________________________________________________________________________

[VB.NET]如何向数据库字段中写入文件？相关推荐

将sql数据库字段中的NULL都替换为空
NULL与空字符串 '' 是相同的????? 在MySQL中,这两者是完全不同的.NULL是指没有值,而"则表示值是存在的,只不过是个空值.(在Oracle中是相同的) 将sql数据库字段中 ...
mysql单价乘以数量_数据库字段中存储的数据数量乘以不同单价的和的算法示例...
数据库字段中存储的数据数量乘以不同单价的和的算法,适用于记账本程序的计件数据记录,和商品记录等场景. 代码示例如下: //模拟数据库结果集 $arr = array( array( "id& ...
如何在Ruby中写入文件？
我需要从数据库中读取数据,然后将其保存在文本文件中. 我怎么能在Ruby中做到这一点? Ruby中有文件管理系统吗? #1楼在大多数情况下,这是首选方法: File.open(yourfile, ' ...
python中写入文件数据及文件定位操作命令
如果我们向文件中写入数据的话,我们可以使用write()函数. 写文件: #打开文件 f = open("./index.cpp","w") #1. 写入数据 ...
kotlin读取sd卡里的文件_如何在Kotlin中写入文件？
其他有趣的变化,因此您可以看到Kotlin的强大功能: 通过创建字符串以一次全部写入的快速版本: File("somefile.txt").writeText(history.en ...
python 文件命令_python中写入文件数据及文件定位操作命令
如果我们向文件中写入数据的话,我们可以使用write()函数. 写文件: #打开文件 f = open("./index.cpp","w") #1. 写入数据 ...
java中写入文件_java中创建、写入文件的5种方式
在java中有很多的方法可以创建文件写文件,你是否真的认真的总结过?下面笔者就帮大家总结一下java中创建文件的五种方法. Files.newBufferedWriter(Java 8) Files. ...
DataURL入门,图片储存在数据库字段中
DataURL入门 DataURL概述所谓DataURL是指"data"类型的Url ...
servlet文件上传blob_servlet实现从oracle数据库的blob字段中读出文件并显示 | 学步园...
/* * ReadFile.java * * Created on 2004年11月17日, 下午3:41 */ package jgwl.app; import java.io.*; import ...

[VB.NET]如何向数据库字段中写入文件？

[VB.NET]如何向数据库字段中写入文件？相关推荐

最新文章

热门文章