用rs.fields("").GetTrunk读取
用rs.fields("").AppendTrunk写入
用rs.fields("").AppendTrunk写入
解决方案 »
- 如何获得当前系统硬盘的序列号?
- 排序的简单问题,解决问题立即给分
- *****请问哪里能水晶报表8.5?*****
- progressbar控件怎么用?如何控制他从0%到100%的移动?就是中间那个渐进条
- 在线等待:怎样获得一个程序已经打开的信息?
- 怎么动态建立控件数组?????
- 判定文件存在的方法,不要FSO
- 什么工具可以实现VB的代码反编译功能,解决问题,100分相赠!
- 讨论:是否源码所有权=版权 (发言者有分)
- 菜鸟又来了。activeX dll能有窗体吗?
- 一个关于DataSet的问题,急!
- 求救!我希望把EXCEL的数据倒入到ACCESS中,但是我们有一列数据是年月的形式,必须要对EXCEL 进行设置。设为文本型或常规型
Montaque==Digitalboy==Houyongfeng==Monkey
Dim rs As ADODB.Recordset
Dim mstream As ADODB.StreamSet cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=<name of your SQL Server>;
Initial Catalog=pubs;User Id=<Your Userid>;Password=<Your Password>"Set rs = New ADODB.Recordset
rs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimisticSet mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("logo").Value
mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWriters.Close
cn.Close
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey