access在VB的Text框的显示
在电影名称里输入要查询的名称,单击查询后,弹出form2form2里能显示所查询电影的其他相关信息求代码...
在电影名称里输入要查询的名称,单击查询后,
弹出form2
form2 里能显示所查询电影的其他相关信息
求代码 展开
弹出form2
form2 里能显示所查询电影的其他相关信息
求代码 展开
1个回答
展开全部
private sub command1_click
Adodc1.RecordSource= "select top 1 * from [电影表] where [电影名称字段名]='" & text1.text & "'"
Adodc1.Refresh
if Adodc1.Recordset.RecordCount>0 then
form2.show
form2.text1.text=adodc1.recordset["电影名称字段名"]
form2.text2.text=adodc1.recordset["类别字段名"]
....
end if
end sub
Adodc1.RecordSource= "select top 1 * from [电影表] where [电影名称字段名]='" & text1.text & "'"
Adodc1.Refresh
if Adodc1.Recordset.RecordCount>0 then
form2.show
form2.text1.text=adodc1.recordset["电影名称字段名"]
form2.text2.text=adodc1.recordset["类别字段名"]
....
end if
end sub
更多追问追答
追问
那我弹出的form2里是不是就不用在绑定一个Adodc了?
追答
是的。如果你第二个界面有其它需求绑定的,则把窗体1的这段代码转到窗体二就行了,把那句sql改为
Adodc1.RecordSource= "select top 1 * from [电影表] where [电影名称字段名]='" & form1.text1.text & "'"
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询