注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

hurt0759的个人主页

人生常态--跋涉.人生暂态--歇息.

 
 
 

日志

 
 

vb EXE/等各种文件与SQL  

2013-04-07 17:39:50|  分类: IT |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

'上传到SQL
 

Private Sub savetodb( )
 Dim msteam As ADODB.Stream
Dim ds As New ADODB.Recordset
Dim iRe As New ADODB.Recordset
Dim iConc As New ADODB.Connection
Dim diskfile As String
diskfile = "H:\tp.exe"
If dir(diskfile) <> "" Then
Source = "dfdf"
Set msteam = New ADODB.Stream
msteam.Type = adTypeBinary
msteam.Open
msteam.LoadFromFile (diskfile)

 iConc = "Provider=SQLOLEDB.1;Data Source=192.168.1.153;Persist Security Info=False;Password=pwd" & ";Persist Security Info=True;User ID=userid;" & _
                       "Initial Catalog=master"
 
   iConc.CursorLocation = adUseClient
 

iConc.Open

    With iRe
 .Open "test", iConc, adOpenKeyset, adLockOptimistic
        .AddNew         '新增一条记录
        .Fields("bak1") = msteam.Read
        .Update
    End With
   
    '完成后关闭对象
    iRe.Close
    iConc.Close
End If
End Sub

 

 

'从SQL下载
Private Sub loadtodisk( )
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
    '打开表
Set iRe = New ADODB.Recordset
'‘得到最新添加的纪录
    iRe.Open "select   * from test order by sysno  desc ", iConc , adOpenKeyset, adLockReadOnly
    '保存到文件
    Set iStm = New ADODB.Stream
    With iStm
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write iRe("bak1")
'‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
        .SaveToFile App.path & "\tddp.exe"
    End With
    iRe.Close
    iStm.Close
End Sub

  评论这张
 
阅读(524)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017