【正文】 For lngI = 1 To = lngI 39。 在主界面點(diǎn)擊“各科成績查詢“按鈕，出現(xiàn)如下界面： 該界面有一個(gè) ADO 控件，用來連接數(shù)據(jù)庫，還有一個(gè) DataGrid 控件，用來顯示學(xué)生成績的查詢結(jié)果，當(dāng)用戶選擇了要查詢的科目和條件后，點(diǎn)擊“查詢“按鈕，在 DataGrid 控件上就會顯示出所查詢的結(jié)果。 建立如下數(shù)據(jù)庫 (學(xué)號、姓名、班級、英語、數(shù)學(xué)、 VB、總分、排名 ) 建立如下圖的所有界面 ： ADO 控件和 DataGrid 控件以及數(shù)據(jù)庫的連接 步驟：（這一步在設(shè)計(jì)界面的同時(shí)完成） （ 1）、如何加載 ADO控件： 步驟 1： 步驟 2： 步驟 3： 各個(gè)界面的 ADO 控件如何 連接數(shù)據(jù)庫（分兩步）： 步驟 1： 如下面界面中的 5個(gè)步驟 步驟 2： 選中 ADO控件 Adodc1，點(diǎn)擊鼠標(biāo)右鍵選擇屬性，然后界面設(shè)置如下： 控件綁定數(shù)據(jù)庫的字段操作說明： 屬性設(shè)置說明：下面以學(xué)號為例，姓名、班級等都可參考此。在這一段時(shí)間里里，不能說 我的 vb 編程能力有了多么大的提高，多么大的飛躍，但我敢說我對 vb 和數(shù)據(jù)庫相關(guān)的知識有了更加深刻的了解和體會，總結(jié)起來主要有以下幾點(diǎn)： 想要用 vb 做出好的東西來，一 定要勤動手，不能光看，因?yàn)楹枚噱e(cuò)誤憑看是看不出來的，只有通過自己不斷的操作和修改，才能對 vb 的語法結(jié)構(gòu)和流程有自己獨(dú)到的理解； 在編程和調(diào)試的過程中，總會出現(xià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