Adodc2.Refresh出问题
st2 = "select 读者类别,是否有超期 from 读者表 where 借书证号 ='" & Trim(Text1) & "'"Adodc2.RecordSource = st2
Adodc2.Refresh --------------------编程问答-------------------- 检查数据连接是否有问题。 --------------------编程问答-------------------- 1,检查数据库连接是否正确
2,检查表名与字段名是否正确
--------------------编程问答--------------------
st2 = "select 借书证号,读者类别,是否有超期 from 读者表 where 借书证号 ='" & Trim(Text1) & "'"
Adodc2.RecordSource = st2
Adodc2.Refresh
你没把 借书证号 加进去又怎么来通过 借书证号 查询呢,错误就出在这里
补充:VB , 数据库(包含打印,安装,报表)