Imports System.IO
Imports System.Text
Imports System.Data.sqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = ""
Dim FileStr As New FileStream("F:/模拟自动更新安装部署.msi",FileMode.Open,FileAccess.Read) '文件位置
Dim TempBytes(FileStr.Length - 1) As Byte
Dim idd As Integer = FileStr.Read(TempBytes,FileStr.Length)
FileStr.Close()
Dim a As Integer = s.Length
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 版本表 WHERE 1=0",conn)
Dim aa As sqlCommandBuilder = New sqlCommandBuilder(dp)
dp.Fill(ds)
Dim DTR As DaTarow = ds.Tables(0).NewRow()
DTR("版本号") = "1.0.0.1"
DTR("更新日期") = DateTime.Now.ToString()
DTR("更新文件") = TempBytes
ds.Tables(0).Rows.Add(DTR)
dp.Update(ds)
conn.Close()
End Sub
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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
