求助帖：vb6.0运行时，出现“编译错误未找到方法或数据成员”，应该怎么解决

超江 2014-07-31 09:50:47

以下是我的源代码：
Dim gconnection As ADODB.Connection
Dim rscomponent As ADODB.Recordset
Dim rsargument As ADODB.Recordset
Dim rscomponent1 As ADODB.Recordset
Dim rsargument1 As ADODB.Recordset

Private Sub cmdclose_Click(Index As Integer)
Unload Me
End Sub

Private Sub cmdselectargument_Click(Index As Integer)
'清空txtargument文本框
txtargument.Text = ""
Set rsargument1 = New ADODB.Recordset
rsargument1.Open "select component.component_name from argument,component,componentargument where" + _
"argument.argument_name =" '+ comboargument.Text+'"and "+ _
"argument.argument_ID =componentargument.argument_ID and"+ _
"componentargument.component_ID = argument.component_ID",gconnection,adOpenStatic,adLockOptimistic

If rsargument1.RecordCount > 0 Then
rsargument1.MoveFirst
While Not rsargument1.EOF
txtargument.Text = txtargument.Text + rsargument.Fields(0) + Chr(13) + Chr(10)
rsargument1.MoveNext
Wend
Else
MsgBox "database error!"
End If
rsargument1.Close
Set rsargument1 = Nothing
End Sub

Private Sub cmdselectcomponent_Click(Index As Integer)
'清空txtcomponent文本框
txtcomponent.Text = ""
Set rscomponent1 = New ADODB.Recordset
rscomponent1.Open "select argument.argument_name from argument,component,componentargument where" + _
"component.component_name =" '+ combocomponent.Text+'"and "+ _
"component.component_ID =componentargument.component_ID and"+ _
"componentargument.argument_ID = argument.argument_ID",gconnection,adOpenStatic,adLockOptimistic

If rscomponent1.RecordCount > 0 Then
rscomponent1.MoveFirst
While Not rscomponent1.EOF
txtcomponent.Text = txtcomponent.Text + rscomponent.Fields(0) + Chr(13) + Chr(10)
rscomponent1.MoveNext
Wend
Else
MsgBox "database error!"
End If
rscomponent1.Close
Set rscomponent1 = Nothing

End Sub

Private Sub Form_Load()
Set gconnection = New ADODB.Connection
gconnection.Open "dsn=property", "sa", ""

Set rscomponent = New ADODB.Recordset
rscomponent.Open "select * from component", gconnection, adOpenStatic, adLockOptimistic

'清空combocomponent组合框
combocomponent.Text = ""

'初始化combocomponent组合框
If rscomponent.RecordCount > 0 Then
rscomponent.MoveFirst
While Not rscomponent.EOF
combocomponent.AddItem rscomponent.Fields(1)
rscomponent.MoveNext
Wend
Else
MsgBox "database error!"
End If
Set rsargument = New ADODB.Recordset
rsargument.Open "select * from argument", gconnection, adOpenStatic, adLockOptimistic

'清空comboargument组合框
comboargument.Text = ""

'初始化comboargument组合框
If rsargument.RecordCount > 0 Then
rsargument.MoveFirst
While Not rsargument.EOF
comboargument.AddItem rsargument.Fields(1)
rsargument.MoveNext
Wend
Else
MsgBox "database error!"
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
rscomponent.Close
Set rscomponent = Nothing
rsargument.Close
Set rsargument = Nothing

gconnection.Close
Set gconnection = Nothing

End Sub

提示是代码中标红句"Private Sub Form_Load()"出错了。

...全文