小弟在此跪求调这个数据库的代码.

Question

我想做一个数据库,如学生姓名,科目,成绩.用两个combobox控件作条件选择,如combo1选姓名,combo2选科目.然后在text1中显视成绩.
想问下代码要怎么写..急啊..各仙高手帮下忙.
最好要语句的注解带上..谢了..

Answer 1

'数据库名假设TEST
dim strsql As String
dim db  As ADODB.Connection
dim rst As New ADODB.Recordset
dim dbconStr  as string 
'连接ACCESS数据库dbconStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
           "\TEST.MDB" & ";Jet OLEDB:Database Password= "  
db.open dbconstr'根据条件获取记录信息
strsql="select 成绩 from TEST  where 姓名='" & combo1.text & "' and 科目='" & combo2.text & "'"
call db.Execute(strsql,rst)
text1.text=rst.Fields("成绩").Value