VB调用数据库里数据表的某一个记录怎么编程序啊?
数据库里的数据表是故障码表,每一个故障码对应一个故障名,在VB创建的某个窗体的文本框中输入一个故障码点击诊断命令按钮就能显示(调用)出对应的故障名称(从数据库的数据表里调...
数据库里的数据表是故障码表,每一个故障码对应一个故障名 ,在VB创建的某个窗体的文本框中输入一个故障码 点击 诊断命令按钮 就能显示(调用)出对应的故障名称(从数据库的数据表里调用 并能够在命令按钮控制的窗体的一个文本框中显示出来)
谢谢了 展开
谢谢了 展开
1个回答
展开全部
Private Sub Command1_Click()
'这里自己定义连接数据库的代码
'需要连接上了数据库 下面才能执行
set rs=server.createobject("adodb.recordset")
Sql = "select * from 表1 where 代码列名 Like '"& text1.text &"'
rs.Open sql, conn, 1, 1
if rs.eof or rs.bof then
msgbox "错误代码输入错误",16,"错误"
else
text2.text=rs("故障名称列")
end if
rs.close
set rs=nothing
End Sub
'这里自己定义连接数据库的代码
'需要连接上了数据库 下面才能执行
set rs=server.createobject("adodb.recordset")
Sql = "select * from 表1 where 代码列名 Like '"& text1.text &"'
rs.Open sql, conn, 1, 1
if rs.eof or rs.bof then
msgbox "错误代码输入错误",16,"错误"
else
text2.text=rs("故障名称列")
end if
rs.close
set rs=nothing
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询