以下是我的源代碼：
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()"出錯了。
uj5u.com熱心網友回復：
參考ADODB組件了沒？uj5u.com熱心網友回復：
能把 error message 粘貼 出來？uj5u.com熱心網友回復：
是 工程-參考-microsoft activeX data objects 2.0 library嗎？我勾選了的
uj5u.com熱心網友回復：
源代碼中標紅的“Private Sub Form_Load()”提示是有錯
uj5u.com熱心網友回復：
下面 會 顯示 錯誤資訊，------------------------------
把 那個 粘貼過來
uj5u.com熱心網友回復：
好像啥也沒有呢。方便加您的qq咨詢嗎？
uj5u.com熱心網友回復：
----------------------------------------------------------------------
發信，即可！！
uj5u.com熱心網友回復：
恭喜獲得成就“讓VB-IDE暴走”
原因參見這個帖子
uj5u.com熱心網友回復：
不至于吧。雖然我是個新手，但是敲代碼時嚴格按照教材上例子一步步來的呢。怎可能出現這么多錯誤
uj5u.com熱心網友回復：
許多教材出版的電子檔，是由手快的輸入員錄入的，你就相信這些不懂代碼的輸入員能校對出錄入錯誤？不信你吧選項 General 頁中 Compile On Demand 選項去掉。
盡管把這個 Form_Load 事件全注釋掉好了。
按F5看看有沒有編譯錯誤？
uj5u.com熱心網友回復：
應該是缺少組件，添加相關參考或者部件，或者是有的控制元件缺少定義沒找到uj5u.com熱心網友回復：
缺少基本組件的應用吧！轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/115394.html
標籤：VB基礎類
上一篇：chrome抓包，preview的值和response是什么
下一篇：請教一個復雜報表的問題