文件存取
来源:互联网 发布:数控机床编程好学吗 编辑:程序博客网 时间:2024/06/13 04:39
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("D:\1024R整机标签.BTW", FileMode.Open, FileAccess.Read) '文件位置
Dim TempBytes(FileStr.Length - 1) As Byte
FileStr.Read(TempBytes, 0, FileStr.Length)
FileStr.Close()
Dim connStr As String = "server=127.0.0.1;database=GP;uid=sa;password="
Dim conn As SqlConnection = New SqlConnection(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.2"
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=127.0.0.1;database=GP;uid=sa;password="
Dim conn As SqlConnection = New SqlConnection(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("C:\1024R整机标签.BTW", FileMode.Create, FileAccess.Write)
FileStr.Write(TempBytes, 0, TempBytes.Length)
FileStr.Close()
End Sub
Dim s As String = ""
Dim FileStr As New FileStream("D:\1024R整机标签.BTW", FileMode.Open, FileAccess.Read) '文件位置
Dim TempBytes(FileStr.Length - 1) As Byte
FileStr.Read(TempBytes, 0, FileStr.Length)
FileStr.Close()
Dim connStr As String = "server=127.0.0.1;database=GP;uid=sa;password="
Dim conn As SqlConnection = New SqlConnection(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.2"
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=127.0.0.1;database=GP;uid=sa;password="
Dim conn As SqlConnection = New SqlConnection(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("C:\1024R整机标签.BTW", FileMode.Create, FileAccess.Write)
FileStr.Write(TempBytes, 0, TempBytes.Length)
FileStr.Close()
End Sub
阅读全文
0 0
- 文件存取
- 数据库中存取文件
- 数据库中存取文件
- 数据库中存取文件
- 创建顺序存取文件
- 数据库中存取文件
- 数据库中存取文件
- 数据库中存取文件
- 数据库中存取文件
- 数据库中存取文件
- 数据库中存取文件
- 数据库中存取文件
- 数据库中存取文件
- 利用数据库存取文件
- 文件存取图片
- HDFS文件存取编程
- 文件的存取
- 结构化文件存取
- 单片机基础强化第一课 简单设计一个LED流水灯
- 反向传播算法,示意图
- 总结过去10年的程序员生涯
- python3 求4位磁力数
- Java学习day4
- 文件存取
- JAVA内部类
- iOS启动动画
- android APK应用安装过程以及默认安装路径
- 多数据源配置-使用spring配置多个数据源实现读写分离
- 函数指针和指针函数的区别
- 排序列表转换为二分查找树-LintCode
- JAVA虚拟机系列(六)
- 刨根问底KVC