用VB.NET 如果将任何文件以二进制形式保存在数据库,然后再从数
Imports System.IO Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click Dim a As Integer = s.Length
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click Dim connStr As String = "server=192.168.0.127;database=测试SQL;uid=sa;password=" Dim conn As SqlConnection = DBHelp.DBConn(connStr) Dim ds As New DataSet() Dim dp As New SqlDataAdapter("SELECT * FROM 版本表",conn) Dim aa As SqlCommandBuilder = New SqlCommandBuilder(dp) dp.Fill(ds) Dim TempBytes() As Byte = ds.Tables(0).Rows(0)("更新文件") Dim FileStr As New FileStream("F:/模拟自动更新安装部署还原.msi",FileMode.Create,FileAccess.Write) FileStr.Write(TempBytes,TempBytes.Length) FileStr.Close() End SubEnd Class (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |