您的位置：程序门 -> vb -> 基础类

请教：datalist问题。

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请教：datalist问题。

发表于：2007-05-17 15:28:22 楼主

请问：

1、在datalist控件中如何显示数据库中的第一条记录？

2、在datalist控件中如何显示上一次登录的用户名？

我的代码：

dcbusername.refresh
set rs = new adodb.recordset
rs.open " select username,password from users ", cnn, adopenkeyset, adlockreadonly
set dcbusername.rowsource = rs
dcbusername.boundcolumn = "password "
dcbusername.listfield = "username "

结果是登录窗口是空白，必须手工下拉datalist列表选择用户名。

多谢指教。

发表于：2007-05-17 16:00:081楼得分:0

1、在datalist控件中如何显示数据库中的第一条记录？
//再后面加一句

rs.movefirst
dcbusername.text = rs（ "username ")

2、在datalist控件中如何显示上一次登录的用户名？
//写个文件把上一次登陆的名字写进去
程序运行的时候读这个文件

发表于：2007-05-17 16:22:502楼得分:0

2楼的请看如下代码：
private sub cmdlogin_click（)
if dcbusername.matchedwithlist = false then msgbox "用户名不存在! ": exit sub
if txtpassword <> dcbusername.boundtext then
msgbox "用户名或密码不正确!请检查输入! "
txtpassword.setfocus
sendkeys "{home}+{end} "
exit sub
else
unload me
frmmain.show
end if
end sub

private sub form_load（)
dcbusername.refresh
set rs = new adodb.recordset
rs.open " select username,password from users ", cnn, adopenkeyset, adlockreadonly
set dcbusername.rowsource = rs
rs.movefirst
dcbusername.listfield = "username "
dcbusername.text = rs（ "username ")
dcbusername.boundcolumn = "password "
end sub

问题：
1、if dcbusername.matchedwithlist = false then msgbox "用户名不存在! ": exit sub
会导致第一个用户“消失”，提示 "用户名不存在! "。原因是什么呢？请解释。
2、dcbusername.listfield = "username "
dcbusername.text = rs（ "username ")
上下位置对调后，dcbusername.text = rs（ "username ")没起作用，也就是说登录窗口是空白，必须手工下拉datalist列表选择用户名。

谢谢指教！

发表于：2007-05-17 16:37:233楼得分:0

msgbox "用户： " + dcbusername.text + "你当前的身份是超级管理员 ", vbinformation + vbokonly, "登陆信息 "

d此时 cbusername.text 怎么会显示数字1，而不是数据库中第一个用户名？

下一篇：新手想学vb，有点编程基础，看什么书好？
上一篇：一道虽然简单但很多人都有错的算法问题

其他资讯