16,719
社区成员
发帖
与我相关
我的任务
分享在vb.net下，如何将rtf文件保存到access数据库的OLE字段中？
诸位大侠，在vb.net下，如何将rtf文件保存到access数据库的OLE字段中？
...全文
请发表友善的回复…
发表回复
孟子E章 2011-10-06
- 打赏
- 举报
'构建数据库连接，SQL语句，创建参数
Dim strCnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\xxx.mdb"
Dim myConnection As New System.Data.OleDb.OleDbConnection(strCnString)
Dim strSql As String = "INSERT INTO TableName(FileName,FileByte)" & _
"VALUES (@FileName,@FileByte)"
Dim command As New System.Data.OleDb.OleDbCommand(strSql, File.ReadAllBytes("c:\xxx.rtf"))
command.Parameters.AddWithValue("@FileName", "文件名")
command.Parameters.AddWithValue("@FileByte", fileType) '打开连接，执行查询
myConnection.Open()
command.ExecuteNonQuery()
myConnection.Close()
Dim strCnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\xxx.mdb"
Dim myConnection As New System.Data.OleDb.OleDbConnection(strCnString)
Dim strSql As String = "INSERT INTO TableName(FileName,FileByte)" & _
"VALUES (@FileName,@FileByte)"
Dim command As New System.Data.OleDb.OleDbCommand(strSql, File.ReadAllBytes("c:\xxx.rtf"))
command.Parameters.AddWithValue("@FileName", "文件名")
command.Parameters.AddWithValue("@FileByte", fileType) '打开连接，执行查询
myConnection.Open()
command.ExecuteNonQuery()
myConnection.Close()
