求助ADODB.stream错误问题 - 编程论坛

#2

Artless2018-04-26 00:23

打包

#3

dgedpc2018-04-26 10:12

回复 2楼 Artless

方便详细说明一下吗？

#4

wds12018-04-26 15:06

估计是引用的dll版本问题。
他说的打包，是你把源代码打包上传。

#5

Artless2018-04-27 00:12

以下是引用dgedpc在2018-4-26 10:12:19的发言：

方便详细说明一下吗？

Setup F***之类

#6

dgedpc2018-05-04 09:27

回复 5楼 Artless

试过了打包解决不了（打包全部控件选择了注册）源码如下：
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

#7

ZHRXJR2018-05-04 19:06

Set mstream = New ADODB.Stream
............................
Set mstream = New ADODB.Stream——出错在这里，但在其他电脑上试过正常
前面已经声明了，后面再次声明是不是有问题
一般不需要这样，只要是VB 60 ，用：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim mstream As New ADODB.Stream
就可以，这是声明对象或变量的常规语句。
不需要：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set mstream = New ADODB.Stream

#8

dgedpc2018-05-04 19:26

回复 7楼 ZHRXJR

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

#9

dgedpc2018-05-04 19:27

KB870669补丁没有打，网上说的控件重新注册什么的全试过，注册表也改过就是解决不了