【正文】 For lngI = 1 To = lngI 39。 在主界面點(diǎn)擊“各科成績(jī)查詢(xún)“按鈕，出現(xiàn)如下界面： 該界面有一個(gè) ADO 控件，用來(lái)連接數(shù)據(jù)庫(kù)，還有一個(gè) DataGrid 控件，用來(lái)顯示學(xué)生成績(jī)的查詢(xún)結(jié)果，當(dāng)用戶(hù)選擇了要查詢(xún)的科目和條件后，點(diǎn)擊“查詢(xún)“按鈕，在 DataGrid 控件上就會(huì)顯示出所查詢(xún)的結(jié)果。 建立如下數(shù)據(jù)庫(kù) (學(xué)號(hào)、姓名、班級(jí)、英語(yǔ)、數(shù)學(xué)、 VB、總分、排名 ) 建立如下圖的所有界面 ： ADO 控件和 DataGrid 控件以及數(shù)據(jù)庫(kù)的連接 步驟：（這一步在設(shè)計(jì)界面的同時(shí)完成） （ 1）、如何加載 ADO控件： 步驟 1： 步驟 2： 步驟 3： 各個(gè)界面的 ADO 控件如何 連接數(shù)據(jù)庫(kù)（分兩步）： 步驟 1： 如下面界面中的 5個(gè)步驟 步驟 2： 選中 ADO控件 Adodc1，點(diǎn)擊鼠標(biāo)右鍵選擇屬性，然后界面設(shè)置如下： 控件綁定數(shù)據(jù)庫(kù)的字段操作說(shuō)明： 屬性設(shè)置說(shuō)明：下面以學(xué)號(hào)為例，姓名、班級(jí)等都可參考此。在這一段時(shí)間里里，不能說(shuō) 我的 vb 編程能力有了多么大的提高，多么大的飛躍，但我敢說(shuō)我對(duì) vb 和數(shù)據(jù)庫(kù)相關(guān)的知識(shí)有了更加深刻的了解和體會(huì)，總結(jié)起來(lái)主要有以下幾點(diǎn)： 想要用 vb 做出好的東西來(lái)，一 定要勤動(dòng)手，不能光看，因?yàn)楹枚噱e(cuò)誤憑看是看不出來(lái)的，只有通過(guò)自己不斷的操作和修改，才能對(duì) vb 的語(yǔ)法結(jié)構(gòu)和流程有自己獨(dú)到的理解； 在編程和調(diào)試的過(guò)程中，總會(huì)出現(xiàn)一些意想不到的問(wèn)題。 End Sub Private Sub Form_Load() kc = class End Sub 該界面代碼如下： Private Sub Command1_Click() Dim vb_A As Integer Dim vb_B As Integer Dim vb_C As Integer Dim vb_D As Integer Dim vb_E As Integer Dim Math_A As Integer Dim Math_B As Integer Dim Math_C As Integer Dim Math_D As Integer Dim Math_E As Integer Dim English_A As Integer Dim English_B As Integer Dim English_C As Integer Dim English_D As Integer Dim English_E As Integer = select * from stu where vb=90 vb_A = = vb_A = select * from stu where vb=80 and vb90 vb_B = = vb_B = select * from stu where vb=70 and vb80 vb_C = = vb_C = select * from stu where vb=60 vb_D = = vb_D = select * from stu where vb60 vb_B = = vb_E = select * from stu where math=90 Math_A = = Math_A = select * from stu where math=80 and math90