Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.StreamPrivate Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set mstream = New ADODB.Stream
End Sub
Private Sub cmdSaveFile_Click()
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=saveFile;Data Source=PCOS-05071342"
rs.Open "select * from TestPpt ", cn, 1, 3
mstream.Type = adTypeBinary
SQL = "select filename from testppt where filename like FilePPT.fileName"
If rs.RecordCount >= 1 Then
MsgBox "您要上传的内容已存在", vbOKCancel + 32, "提示"
End If
mstream.LoadFromFile "\test.ppt"
rs.AddNew
rs.Fields("Filecontents") = mstream.Read
rs!fileName = FilePPT.fileName
rs.Update
rs.Close
End Sub
提示:对象打开时不允许操作。
而且上传相同的文件名时也不提示
Dim rs As ADODB.Recordset
Dim mstream As ADODB.StreamPrivate Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set mstream = New ADODB.Stream
End Sub
Private Sub cmdSaveFile_Click()
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=saveFile;Data Source=PCOS-05071342"
rs.Open "select * from TestPpt ", cn, 1, 3
mstream.Type = adTypeBinary
SQL = "select filename from testppt where filename like FilePPT.fileName"
If rs.RecordCount >= 1 Then
MsgBox "您要上传的内容已存在", vbOKCancel + 32, "提示"
End If
mstream.LoadFromFile "\test.ppt"
rs.AddNew
rs.Fields("Filecontents") = mstream.Read
rs!fileName = FilePPT.fileName
rs.Update
rs.Close
End Sub
提示:对象打开时不允许操作。
而且上传相同的文件名时也不提示
解决方案 »
- treeview子节点之间drag问题???急啊!!!!!
- 如何才能找到这个API涵数的声明?(function InternetReadHTML Lib "Wininet.dll")
- 怎么样用 VB 开发 COM 加载项 (Office 插件 如:金山词霸2003 的 Word 插件一样)?
- Intelement 在 VB 非技术类论坛发表散分贴子(2)
- 在Imagelist控件中加载WINXP风格的图标后,为什么显示出来完全没有XP图标的那种平滑效果???
- vb中怎样获取document的内容
- 一个关于到注册费的讨论:注册表类软件怎样才有突破,可以吸引到用户呢?
- 我要考试了,如何用“VB6。0”编这题
- 如何发送一个sheet作为email 的body?(50分)
- 高分求解,快来看呀!!!!!
- 马上结帖:怎样取出long型数据的高位(high-order word )和低位(low-order word) ?
- 请问怎样用VB来播FLASH
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=saveFile;Data Source=PCOS-05071342"
if rs.state<>adstateclosed then rs.close
rs.Open "select * from TestPpt ", cn, 1, 3