1187
社区成员
- 全部
一个数据查询问题，请高手帮忙·！~
我想做一个用户登陆窗口测试，首先判断用户是否存在，如果存在则提示用户存在，如果无则提示无此用户
可是查到数据库中的数据如果有就很正常，没有的时候就报错，请高手指点。
关键代码如下：
Dim b As Variant
b = Text1.Text
Set rs = New ADODB.Recordset
rs.Open "select * from login where user=""" & b & """", conn, adOpenDynamic, adLockOptimistic
If Text1.Text = rs!user Then
Text2.Text = "该用户存在"
Unload Me
Else
Text2.Text = "无此用户"
End If
可是查到数据库中的数据如果有就很正常，没有的时候就报错，请高手指点。
关键代码如下：
Dim b As Variant
b = Text1.Text
Set rs = New ADODB.Recordset
rs.Open "select * from login where user=""" & b & """", conn, adOpenDynamic, adLockOptimistic
If Text1.Text = rs!user Then
Text2.Text = "该用户存在"
Unload Me
Else
Text2.Text = "无此用户"
End If
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
s6w6k 2003-04-02
dim rs As ADODB.Recordset
Set rsuser = New ADODB.Recordset
rsuser.Open "select * from login where user=""" & b & """" , conn, adOpenStatic, adLockOptimistic
If rsuser.RecordCount > 0 Then
Text2.Text = "该用户存在"
Unload Me
Else
Text2.Text = "无此用户"
Exit sub
Endif
Set rsuser = New ADODB.Recordset
rsuser.Open "select * from login where user=""" & b & """" , conn, adOpenStatic, adLockOptimistic
If rsuser.RecordCount > 0 Then
Text2.Text = "该用户存在"
Unload Me
Else
Text2.Text = "无此用户"
Exit sub
Endif
980 2003-04-02
Dim b As Variant
b = Text1.Text
Set rs = New ADODB.Recordset
rs.Open "select * from login where user=""" & b & """", conn, adOpenDynamic, adLockOptimistic
if rs.recordcount>=1 then
Text1.Text = rs!user
Text2.Text = "该用户存在"
else
text2 = "无此用户"
exit sub
End If
b = Text1.Text
Set rs = New ADODB.Recordset
rs.Open "select * from login where user=""" & b & """", conn, adOpenDynamic, adLockOptimistic
if rs.recordcount>=1 then
Text1.Text = rs!user
Text2.Text = "该用户存在"
else
text2 = "无此用户"
exit sub
End If
sxmines 2003-04-02
其实道理很简单就是判断你使用sql语句得到的Recordset的记录集中是否有记录
即当
rs.recordcount>0
表示，数据库中有该记录，继而还可以判断记录的个数
当然使用
rs.eof and rs.bof
也可以判断rs是否为空
此外需要注意的是，你在处理用户名和密码是需要对此进行处理
即需要将其中的'号处理，
使用
Replace(text1.Text, "'", "''")函数将一个引号变成两个引号
这样做是为了避免sql语句的漏洞
即当
rs.recordcount>0
表示，数据库中有该记录，继而还可以判断记录的个数
当然使用
rs.eof and rs.bof
也可以判断rs是否为空
此外需要注意的是，你在处理用户名和密码是需要对此进行处理
即需要将其中的'号处理，
使用
Replace(text1.Text, "'", "''")函数将一个引号变成两个引号
这样做是为了避免sql语句的漏洞
youxia001 2003-04-02
Dim b As Variant
b = trim(Text1.Text)
if instr(1,b,"'")>0 then
msgbox "不能含有 “ '“ 此符号！"
exit sub
end if
Set rs = New ADODB.Recordset
rs.Open "select * from login where user='" & b & "'", conn, adOpenDynamic, adLockOptimistic
If not rs.eof Then
Text2.Text = "该用户存在"
Unload Me
Else
Text2.Text = "无此用户"
End If
b = trim(Text1.Text)
if instr(1,b,"'")>0 then
msgbox "不能含有 “ '“ 此符号！"
exit sub
end if
Set rs = New ADODB.Recordset
rs.Open "select * from login where user='" & b & "'", conn, adOpenDynamic, adLockOptimistic
If not rs.eof Then
Text2.Text = "该用户存在"
Unload Me
Else
Text2.Text = "无此用户"
End If
cbr7619 2003-04-02
不好意思
If rs.RecordCount=0 then
Text2.Text = "无此用户"
Exit Sub
Else
Text2.Text = "该用户存在"
Endif
还有user=""" & b & """" ==>user="'" & b & "'"
dim b as string
If rs.RecordCount=0 then
Text2.Text = "无此用户"
Exit Sub
Else
Text2.Text = "该用户存在"
Endif
还有user=""" & b & """" ==>user="'" & b & "'"
dim b as string
marcosong 2003-04-02
If rs.EOF then
Text2.Text = "无此用户"
Exit Sub
Else
Text2.Text = "该用户存在"
Endif
Text2.Text = "无此用户"
Exit Sub
Else
Text2.Text = "该用户存在"
Endif
marcosong 2003-04-02
用rs.eof来判断是否有数据就可以了
chinanetspy 2003-04-02
提示编译错误：未找到方法或数据成员
cbr7619 2003-04-02
没有的时候 rs =空
If rs.Count=0 then
Text2.Text = "无此用户"
Exit Sub
Else
Text2.Text = "该用户存在"
Endif
If rs.Count=0 then
Text2.Text = "无此用户"
Exit Sub
Else
Text2.Text = "该用户存在"
Endif
关于将数据库查询的数据赋值给变量的问题，请高手帮忙！！！ 或者为什么只赋值第一个数据 ("ADODB.Connection") conn.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("sjxt.mdb") set rs=server.createobject("adodb.recordset") sql1="select z_...
数据量大就超时分!!!~~~~~请高手帮帮忙~~~~分不够再加 求一个存储过程实现以下功能 调用存储过程 set rs = conn.execute(sql) function get_cal(key1,key2,key3,key4) 'key1 rs数据集 key2 筛查条件 key3 检查部位(q81_001) key4 疾病统计分类(q81_003) p_count = 0 key1...
一个PHP程序中的数据查询问题请高手帮忙急~~~~~~ 我想做一个到期查询time表里面有productID,endtime把time表里的数据endtime和现在的时间进行减运算 如果小于10天就查出相应的产品ID再通过ID到产品表里面查询产品信息然后在网页上体现出来我做的只能查到一条.请高手...
看个逻辑，可否帮忙写个sql请各路高手伸手援助！~ 最终的流程是，将原学期中查询出来的所有课程目录数据，在只改变ID的情况下，按照原来的父子关系，重新插入一次课程目录表，同时把课程目录厘米那的KCID指向新学期中的课程ID。这其中就有个要求是原学期中课程名称与...
listview的checkboxs问题，请高手帮忙！~ msdn帮助里：“ListView 也可以使用 CheckBoxes 属性显示复选框，以使用户可以选中要对其执行操作的项。”但没有详细的说明。 如何对checkbox进行操作呢？ 1）判断某一项有没有被选中；... 请高手帮忙！！！
急！急！求高手帮忙一个查询问题！在线等~~ 我有两张表 信息分别是 类别表 tid(ID) tname(名称) 1 啊 2 啊 3 啊 4 啊 5 啊 6 啊 ... 成功后 最终查询的结果为: tid(信息表或者类别表) 1 3 5 6 求一个sql语句~~~ 小弟新手 求高手帮帮忙 感激不尽~~~ 谢谢了~~~~~~~~
关于从数据库中读数据放在表格中过长需要自动换行，不知道怎么弄，汗呀！...请帮忙！~！！~ 我的表格里调入数据库中的一段文字，而文字的宽度大于表格的宽度，表格 会自动变宽，我现在想不让表格变宽，而是固定宽度让文字自动换行，请问这种应该怎 么做... 有高手，请回答问题后留QQ号，交个朋友，多学习交流！
问高手一个问题啊,急啊,高手一定要帮忙啊!!!!~~~~~~~~~~ 我要把一个二维数组里的数放到Excel表格中,(二维数组的第一行放到第一列,二维数组的第二行放到第二列,以此下去~~~)并实现对Excel表格数据进行打印,请问高手该怎么办啊,急啊~~~~~~~~
SQL数据统计问题~~请高手帮忙！急！ 本人最近在弄一个有关考勤的课程设计，现在想要实现统计功能，让结果显示在textbox中，有没有人知道该怎么弄啊？ SQL语句：select count(*) from jiaban 就是想把这个统计出来的结果显示到窗体的textbox中~~~
一个难题：有请高手帮忙！！～～～ 小弟用datawindow显示风格为label的数据窗口来显示病人一览表：其中当单击右键的...高手帮忙？ 高手们在解决这种一览表的时候有什么好方法,一并告诉菜鸟我～～～谢谢 mail:lkyuan007@sina.com oicq:3380046 高山流水
怎样建立一个新的dataset，并给其添加数据？？？我快疯了！！请高手帮忙！！！~~ 在数据表里有多个员工的多次提交的记录 我怎么才能得到一个人最新的一笔呢？ 我的思路是得到先把所有的资料都select出来，并按倒序 （也就是每个人最新的一条在最前面，并且一个人的所有记录都会在一起） 把这些记录...
数据类型的问题~！！请高手们帮忙~！！！ 在代码中的数据类型为BLOB，因为客户只需要存储字符数据所以想把BLOB类型换成CLOB类型！ 请问，BLOB换成CLOB会不会出现什么问题？？？这两种类型的最大区别是什么？？ 谢谢告知~！！！
关于数据写入的问题~请高手帮忙~~谢谢 但是数据没有写进表里~~~ 请高手帮忙！！！ try { SqlCommand ud = new SqlCommand("update userinfo set phone='" + TextBox4.Text + "'where account='" + Label6.Text + "'", conn); cmd.ExecuteNonQuery(); ...
一个access数据库模糊查询判断的问题！~ 字段A 字段B 字段C 结果 0-5 0-5 0-5 1 0-5 0-5 6-10...0 0 14 那就符合 第三跳数据 输出结果3 也就是说 判断用户输入的数据 是否符合这3个字段的里的数据，然后输出指定结果 这样的查询语句怎么写呢，高手帮忙一下！~~
求助，求高手！！求师傅！！！~~~~在线等好心人进！！！ 现有如下问题，请高手帮忙解答！ 另求一位高手收我当徒弟！加Q717494008，最好是青岛市的！ 问题：现有两张表t_lyclass和t_ly_main 其中t_lyclass中有自增长titleid主键与t_ly_main关联 现在我想写一段插入语句，...
关于查询的疑难问题，求一个思路，谢谢各位高手！～～ 各位高手： 小弟现在要做一...所以我想到的只有用什么办法把数据分开，保证不同用户查询出来的数据是不一样的，那么他们只能修改自己查询出来的数据，就不会有那种问题了，小弟才疏学浅，先谢谢各位高手帮忙，谢谢了～
一个奇怪的问题~！请高手帮忙~！多谢~! 现在遇到的问题是，有些客户端数据插入服务器端的表后居然产生空值，查看客户端数据没有发现有空数据，再次上传这个客户端数据到一个空的没有数据的服务器端数据库中，完全没有问题，也没有发现有空数据（那说明程序...
一个非常麻烦的问题，请高手帮忙解决~！谢拉~！ 我用asp和xml写了一个上传数据的程序,不知道为什么总是出现数据长时间没法上传，很晚上传也不行，但换了另外的机器上传就行了。还会出现上传了一部分数据，另外一部分数据没法上传。
制作进度条时，遇到的一个小问题!急啊～～～～～高手们快点帮忙啊 由于数据处理时间有点长，我加了一个进度条，但是我进度条已经显示完成了，但是后台的数据处理还没完成， 这段代码就是进度条显示的时间 public void run() { int index = 0; while(index ) { try { sleep(1000); ++...
登录绑定用户问题~请高手帮忙！ 小弟最近在弄一个考勤系统，在数据绑定方面不知道怎么解决，就是想在各个页面都能绑定到登录的用户上，例如用户甲登录了，然后在其他读取数据的页面显示的就是甲的信息~~~希望高手指导一下！！！
急 ，高手帮忙！！！！！ 有一个数据集 ，里面有很多数据表。 在主窗口利用 ，构造函数 ，传进去 ， 绑定 datagridview , 然后修改。 修改后， 在frm_closing 事件中, dataset.acceptchange(); 报错 “System.NullReferenceException”类型的...
急!~一个数据结构方面的问题,高手请进 这个问题请大家帮忙看看,是面试题. 如果系统要使用超大整数（超过long长度范围），请你设计一个数据结构来存储这种超大型数字以及设计一种算法来实现超大整数加法运算）。 能不能给个例子啊
100~~~~~~`关于BOM表新增检查的问题！~~急！！！请高手帮忙指点啊！！！ 在新增记录时，我想检查新增的内容是否会造成现有的数据库中结构循环，我的做法如下，遇到层次少的记录可以调用如下的代码，但是遇到6层以上的结构就会出现超IIS时间，无法新增数据了，请高手帮帮我啊！谢谢！！急...
aspx 页绑定 5000 条数据的问题，请高手帮忙！菜鸟无进！ 我有一个aspx 页需要绑定 5000条数据 每条数据有20列，每列都有 onMouseOver、onMouseOut、onClick、onDblClick 这些事件 如果5000条数据中不包含 以上事件，绑定在页面上只需要 2-4秒钟。 但是包含这些时间 速度就...
SQL数据库两个表连接，重复数据的问题？请高手帮忙！！！！ 有两个数据库如下： 数据库A 字段1 字段2 字段3 字段4 数据库B 字段1 字段2 字段3 字段4 A库中字段3与B库中字段3是相同的。A库中字段3是有重复的。 通过查询，希望得到A.1,A.2,A.3,b.4字段组成的结果集。 自己做了下...
本人菜鸟 菜到极点 但有些问题实在想不通，望高手帮忙，小弟先谢谢了！~！~ 大家好,我是一名新手,刚学习VC++,现遇到一些问题,希望大家帮忙一下,虽然都是菜鸟级的问题,可是,我实在是弄了好多天也弄不出来,所以就上来望大家解决一下,先谢谢了!!!!!! 问: 7位 ASCII 字符集 有符号位时 存储和运算...
