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运行完全正确
相关问答：
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
