vb sql问题
来源:百度知道 编辑:UC知道 时间:2024/06/17 15:09:45
sql服务器地址为192.168.1 .1
sql2000已经建立好数据库“abc”和表“denglu”
表“登陆”有两列
分别是“yonghu”和“mima”
窗体上有一个datacombo1个text1
实现窗体启动连接数据库
datacombo1下拉菜单能显示表表“denglu”里“yonghu”列的所有内容
在text1里填入与下拉菜单选择用户对应的密码
按command1,form2.show
否则 提示密码错误
谢谢
sql2000已经建立好数据库“abc”和表“denglu”
表“登陆”有两列
分别是“yonghu”和“mima”
窗体上有一个datacombo1个text1
实现窗体启动连接数据库
datacombo1下拉菜单能显示表表“denglu”里“yonghu”列的所有内容
在text1里填入与下拉菜单选择用户对应的密码
按command1,form2.show
否则 提示密码错误
谢谢
dim cn as new adodb.connection
dim rs as new adodb.recordset
sub form1_load()
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=denglu;Data Source=192.168.1.1;pwd="
cn.open
set rs=cn.execute("select yonghu from denglu")
for i=1 to rs.recordcount
datacombo1.AddItem rs(0)
rs.movenext
next
rs.close
set rs=nothing
end sub
sub command1_click()
set rs=cn.execute("select count(*) from denglu where yonghu='" & datacombo1.text & "' and mima='" & text1.text & "'")
if rs(0).value=1 then
form2.show
else
msgbox "密码错误"
end if
end sub