[求助]实时错误，自己改不好 - VB6论坛

tailaker

等　级：新手上路
帖　子：9
专家分：0
注　册：2007-3-26

楼主

问题点数：0 回复次数：5

[求助]实时错误，自己改不好

大家帮我看看下面这段程序，为什么当执行到红色语句时，会弹出“实时错误3001，参数类型不正确，。。。。”

Dim Filestm As New ADODB.Stream '“定义为二进制流，然后指明流的类型和模式”
Dim rs As New ADODB.Recordset

Dim strName, conStr, sql As String

Private Sub Command1_Click()

If strName <> "" Then '保存图片

rs.Open "Select * from tb", conn, adOpenKeyset, adLockOptimistic
Filestm.Type = adTypeBinary

Filestm.Open

Filestm.LoadFromFile strName
rs.AddNew
rs.Fields("pic") = Filestm.Read
rs.Update

Filestm.Close
MsgBox ("成功！")
End If

End Sub

Private Sub Form_Load()

Dim conn As New ADODB.Connection
connstr = "provider=Microsoft.Jet.oledb.4.0;" & "data source=" & App.Path & "\cc.mdb"
conn.Open connstr
End Sub

Private Sub Image1_Click()

If Image1.Enabled = True Then

On Error GoTo S1

Me.CommonDialog1.CancelError = True

Me.CommonDialog1.Filter = "JPEG(*.jpg)|*.jpg;*.jpeg|Windows位图，图标 (*.bmp;*.ico)|*.bmp;*.ico"
'指明打开图片的类型
Me.CommonDialog1.ShowOpen

If Me.CommonDialog1.FileTitle = "" Then Exit Sub

strName = Me.CommonDialog1.FileName

Me.Image1.Picture = LoadPicture(strName)
' “加载图片”

Exit Sub

S1:

strName = ""

End If

End Sub

搜索更多相关主题的帖子: 实时错误　 DIV　二进制　 Dim　New　

2007-04-02 12:04

tailaker

等　级：新手上路
帖　子：9
专家分：0
注　册：2007-3-26

第 3 楼

得分:0

非常感谢现在可以了

2007-04-02 13:39

tailaker

等　级：新手上路
帖　子：9
专家分：0
注　册：2007-3-26

第 5 楼

得分:0

我自己好像也找到了。。。。
Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打开表
Set iRe = New ADODB.Recordset
‘得到最新添加的纪录
iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
.SaveToFile App.Path & "\test1.jpg"
End With

Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
'关闭对象
iRe.Close
iStm.Close
End Sub

2007-04-02 16:40