24小时热门版块排行榜

返回列表

森林小木屋

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 126.6
沙发: 5
帖子: 74
在线: 18.4小时
虫号: 3007451
注册: 2014-03-01
性别: MM

[求助] 请求大家的帮助，我是真的没辙了。谢谢大家了。

我是初学vb，请大家帮忙看一下这是是什么啊？用adodc连接了数据库，用datagrid控件显示查询内我容，可在运行时数据网格中没有出现查询结果，，adodc控件显示是灰色的，问题出在哪里？还有下面一段也使用了adodc控件，用了文本框来显示数据表中记录的个数。也运行不了，请专家指点啊。
Private Sub txtpatient_id_Change()
Adodc.RecordSource = "select * from patient where patient_id=" '_ & trim(txtpatient_id.text) & '''''
adodc.Refresh
End Sub

Private Sub Text1_Change()
Adodc2.RecordSource = "select * from patient where patient_id=''"
Text1.Text = rs.RecordCount
End Sub

回复此楼