Private Sub Command6_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set mstream = New ADODB.Stream
conn.Open Connstring
rs.Open "select * from ver", conn, adOpenKeyset, adLockOptimistic
CommonDialog1.Filter = "*.*"
CommonDialog1.ShowOpen
Text7.Text = CommonDialog1.FileTitle
Set mstream = New ADODB.Stream——出錯在這里，但在其他電腦上試過正常
With mstream
.Type = adTypeBinary
.Open
.LoadFromFile CommonDialog1.FileName
End With
If rs.RecordCount = 0 Then
rs.AddNew
rs.Fields(1) = 1#
rs.Update
End If
rs.Fields(0) = mstream.Read
rs.Fields(1) = CommonDialog1.FileTitle
rs.Update
mstream.Close
End Sub
在其他電腦上運行正常，但某臺電腦上運行出現此錯誤，錯誤陳述句：Set mstream = New ADODB.Stream，試過很多方法還是無解。求高手幫忙，在此感激不盡
uj5u.com熱心網友回復：
參考的是哪個ADO版本？換個版本？或者嘗試一下后期創建
Set mstream =CreateObject( "ADODB.Stream")
uj5u.com熱心網友回復：
2.5版的，上面的方法也試過結果一樣的，我從其他電腦上面打包也試過解決不了uj5u.com熱心網友回復：
在你的“出錯陳述句”之前，不是還有一個 New ADODB.Stream 的嗎，那一句沒有出錯？既然“前面”成功了，你“后面”干嗎又要重新 New呢？ 直接用不就行了！
uj5u.com熱心網友回復：
Private Sub Command6_Click()Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim stm As New ADODB.Stream
'Set conn = New ADODB.Connection
'Set rs = New ADODB.Recordset
'Set mstream = New ADODB.Stream
conn.Open Connstring
rs.Open "select * from ver", conn, adOpenKeyset, adLockOptimistic
CommonDialog1.Filter = "*.*"
CommonDialog1.ShowOpen
Text7.Text = CommonDialog1.FileTitle
'Set stm = New ADODB.Stream
'Set stm = CreateObject("ADODB.Stream")
With stm ------按照方法在這個地方出現同樣的錯誤提示！
.Type = adTypeBinary
.Open
.LoadFromFile CommonDialog1.FileName
End With
If rs.RecordCount = 0 Then
rs.AddNew
rs.Fields(1) = 1#
rs.Update
End If
rs.Fields(0) = mstream.Read
rs.Fields(1) = CommonDialog1.FileTitle
rs.Update
mstream.Close
End Sub
最開始是：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stm As ADODB.Stream
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set mstream = New ADODB.Stream
能用的方法基本全試過了就是不行、我唯一有操作過的就是用360殺過一次毒，我覺得問題應該是出在這里。
uj5u.com熱心網友回復：
那你試一下把數字流氓退出后，再執行你的代碼。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/46876.html
標籤：VB基礎類