VB中如何用text控件显示SQL查询语句结果
完整题目要求是在FORM1中根据用户名和密码登录到form2,后点击form2中“查看个人资料”按钮,在form3中显示个人资料登录页面form1中输入用户名的是text...
完整题目要求是在FORM1中根据用户名和密码登录到form2,后点击form2中“查看个人资料”按钮,在form3中显示个人资料
登录页面form1中输入用户名的是text1.text
现在想根据输入的text1.text在用户数据库中查询对应资料,结果用text控件显示在form3上
数据库是lib.mdb中的用户信息表
求如何用text显示SQL语句“ select 姓名,学号,班级,电子邮箱,电话.地址 from 用户信息表 where 用户名=form1.text1.text ”的查询结果
不用adodc 或者datagrid 控件(因为用的精简版的VB没有这两个……和类似的控件),登录部分的代码已经做好了,只求显示结果那部分的代码! 展开
登录页面form1中输入用户名的是text1.text
现在想根据输入的text1.text在用户数据库中查询对应资料,结果用text控件显示在form3上
数据库是lib.mdb中的用户信息表
求如何用text显示SQL语句“ select 姓名,学号,班级,电子邮箱,电话.地址 from 用户信息表 where 用户名=form1.text1.text ”的查询结果
不用adodc 或者datagrid 控件(因为用的精简版的VB没有这两个……和类似的控件),登录部分的代码已经做好了,只求显示结果那部分的代码! 展开
展开全部
加上下面的代码,试试:
rs.Open "SELECT * from 用户信息表 where 用户名='" & trim(form1.Text1.text) & "'", cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Form3.Show
form3.text1=rs("姓名")
form3.text2=rs("学号")
form3.text3=rs("班级")
form3.text4=rs("电子邮箱")
else
msgbox "没有这个用户信息“
end if
rs.Open "SELECT * from 用户信息表 where 用户名='" & trim(form1.Text1.text) & "'", cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Form3.Show
form3.text1=rs("姓名")
form3.text2=rs("学号")
form3.text3=rs("班级")
form3.text4=rs("电子邮箱")
else
msgbox "没有这个用户信息“
end if
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询