易截截图软件、单文件、免安装、纯绿色、仅160KB

VB 登录 - VB / 网络编程

user_name = Trim(tbname.Text)
pwd = Trim(tbPwd.Text)

If user_name <> "" Then
  Adodc1.Recordset.MoveFirst '从第一条记录开始查看
  Adodc1.Recordset.Find ("user =" & "'" & user_name & "'")

  If user_name = Adodc1.Recordset.Fields(0) And pwd = Adodc1.Recordset.Fields(2) Then
  MsgBox "登录成功!"
  USER_FUN.Show
  ElseIf user_name <> Adodc1.Recordset.Fields(0) Then
  MsgBox "用户名错误!", vbOKOnly + vbInformation, "提示"
  tbname.Text = ""
  tbPwd.Text = ""
  tbname.SetFocus
  ElseIf pwd <> Adodc1.Recordset.Fields(2) Then
  MsgBox "用户名错误!", vbOKOnly + vbInformation, "提示"
  tbPwd.Text = ""
  Else
  MsgBox "系统出现问题!", vbCritical, "警示"
  End If
End If

运行时老出现用户名错误的提示,这是什么原因?
补充:
adodc1在属性中设置了连接SQL,
tbname,tbpwd跟数据库user表的name,pwd项在属性中也设置了连接


我把密码错误时的提示改了,但还是提示用户名错误,可能是数据库中的内容存在空格

怎么把数据库中的内容存在的空格去点呢,也用trim吗

是了下,加上trim运行完全正确


相关问答:

vb操作excel - VB / 基础类

问题:
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
  A 3
  A 4
  B 6
  ... ......

vb WebBrowser 小问题,请教 - VB / 基础类

vb WebBrowser 小问题,请教:
WebBrowser里的网址跳转后,怎么取得跳转后的页面的URL地址

顶下顶下

引用
BeforeNavigate2
好像没有这个吧 vb6.0

BeforeNavigate2
这个可以有,呵呵。
......

求助:C代码改写成VB代码 - VB / 基础类

谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

关于Vb中sql语句的写法(100分) - Java / Web 开发

求个vb中的sql语句的写法,次sql语句的用法是分页程序
我写的如下:其中A是用来接收每页显示的记录的条数,B是用来接收显示的当前的页面.
sqltext="select top A * from log where id not in(select top ( ......

VB树型结构问题 - VB / 控件

找了很久这东西了,  
用treeview不能满足要求
现在想做的是:界面以树形展现,能不能展开收回无所谓
  节点都可以按照规定进行添删
  每个节点后面都可能会出现 文本 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号