vb登录判断问题
大家好，我是个菜鸟，刚学习VB，我有一个问题想请教！
我想在VB中用IF语句做判断 ，如果满足quanxian="user"则执行语句（不能执行） 我的数据库sql里字段有username passwoer quanxian
代码如下：
Private Sub cmdOK_Click()
Dim m As String
Dim quanxian As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=niuniu;uid=;pwd=;database=sbgl"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select username,password,quanxian from 帐号管理 where username='" & Trim(txtUserName.Text) & "' And password ='" & Trim(txtPassword.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
txtUserName.Text = ""
txtUserName.SetFocus
txtPassword.Text = ""
txtPassword.SetFocus
ElseIf rs!quanxian = "user" Then
shouye.Hide
shouye.Show
Unload frmLogin
Else
shouye1.Hide
shouye1.Show
Unload frmLogin
End If
rs.Close
End Sub
VB code:
'password为系统关键字，建议不要作为表名与字段名使用，一定要用则需要用方括号
'代码尽量缩进
Private Sub cmdOK_Click()
Dim m A
相关问答：
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的，也进来蹭分……
佛山的行吗,广州的行吗?
友情支持
回复内容太短了！
帮顶 ......
