收录日期:2018/08/15 02:08:01 时间:2016/05/22 08:22:01 标签:数据库(包含打印,安装,报表)
Private Sub Command2_Click()
 Dim Conn As New ADODB.Connection
 Dim Rst As New ADODB.Recordset
       Conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=shiyan;Data Source=" & strserver & " "
       Conn.Open
       Rst.Open "SELECT * FROM user1 ", Conn, adOpenKeyset, adLockOptimistic
 Print Rst.Fields(0).Value
If Rst.Fields(0).Value = "user" Then
 c = MsgBox("cc")
End If
End Sub



我建的数据库名是shiyuan,表名user。 两个字段user_id="user"(字符型)
Print Rst.Fields(0).Value  的值是 user
而却不显示c = MsgBox("cc")的效果
请问这是为什么?


 
检查是否有空格的存在
Trim("user")也是过,可是还是那样
估计是表中的字段有空格,定义一个字符串变量
dim aaa as string
aaa = trim$(Rst.Fields(0).Value)
If aaa = "user" Then
 c = MsgBox("cc")
End If
End Sub