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运行完全正确
相关问答：
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
我想把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
......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
