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运行完全正确
相关问答:
问题:
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
vb WebBrowser 小问题,请教:
WebBrowser里的网址跳转后,怎么取得跳转后的页面的URL地址
顶下顶下
引用
BeforeNavigate2
好像没有这个吧 vb6.0
BeforeNavigate2
这个可以有,呵呵。
......
谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
求个vb中的sql语句的写法,次sql语句的用法是分页程序
我写的如下:其中A是用来接收每页显示的记录的条数,B是用来接收显示的当前的页面.
sqltext="select top A * from log where id not in(select top ( ......
找了很久这东西了,
用treeview不能满足要求
现在想做的是:界面以树形展现,能不能展开收回无所谓
节点都可以按照规定进行添删
每个节点后面都可能会出现 文本 ......