Question

vb:运行时错误：‘80004505‘如何解决

VB6.0环境
Private Sub Command1_Click()

Dim str As String
Dim mc As String
If Combo1.Text = "" Then
MsgBox "请先输入査询字段！"
Exit Sub
Else
mc = Trim(Text1.Text)
str = Combo1.Text & " like " & "'" & Text1.Text & "'"
End If

If Text1.Text = "" Then
MsgBox "请输入査询内容！"
Exit Sub
End If

datPrimaryRS.Recordset.MoveFirst
datPrimaryRS.Recordset.Find str
datPrimaryRS.Recordset.MoveNext
' End If
' If datPrimaryRS.Recordset.EOF Then
' datPrimaryRS.Recordset.MoveLast
' End If
' rs1 = datPrimaryRS.Recordset(str)
If datPrimaryRS.Recordset.AbsolutePosition < adPosBOF Then
MsgBox "没有相应纪录!"
'If datPrimaryRS.Recordset.EOF Then

Exit Sub
系统总是在"datPrimaryRS.Recordset.Find str"这句报错,
有时会出现运行错误"'-214767259(8004005)'"

Answer 1

你是不定义数组了。你定义时少了，要不就是你用时多了。
如dim
p(10)
as
long
你用到
p(11)=12
就会出现你说的问题
再就是你赋值超过了你定义变量的范围

Answer 2

这个要看您的程序代码了,首先我们要知道哪里报错,才能提出解决方案

&&&&&&&&&&&&&&&&&&&&&&&

Dim str As String
Dim mc As String
If Combo1.Text = "" Then
MsgBox "请先输入査询字段！"
Exit Sub
Else
mc = Trim(Text1.Text)
str = Combo1.Text & " like " & "'" & Text1.Text & "'" '这里一般得加*？等通配符***********************
End If

If Text1.Text = "" Then
MsgBox "请输入査询内容！"
Exit Sub
End If

datPrimaryRS.Recordset.MoveFirst
datPrimaryRS.Recordset.Find str '改成findfirst试试看吧********************
datPrimaryRS.Recordset.MoveNext
' End If
' If datPrimaryRS.Recordset.EOF Then
' datPrimaryRS.Recordset.MoveLast
' End If
' rs1 = datPrimaryRS.Recordset(str)
If datPrimaryRS.Recordset.AbsolutePosition < adPosBOF Then
MsgBox "没有相应纪录!"
'If datPrimaryRS.Recordset.EOF Then

Exit Sub

Answer 3

程序不全啊
这部分有变量未定义