Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
Private 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
提示：物件打開時不允許操作。
而且上傳相同的檔案名時也不提示
uj5u.com熱心網友回復：
聯接重復打開，當然不行了uj5u.com熱心網友回復：
if cn.state<>adstateclosed then cn.close
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/153394.html
上一篇：用ＶＢ 如何進行并口通信？