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运行完全正确
相关问答：
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
谁能帮我把下面这些代码改成VB形式的，多谢了，急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
小弟用VB调EXCEL作图
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......
