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
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
如题，VB中如何实现一PC控制N台PC机的开关机或者其他命令呢？
这个问题有点大哦.如不能在其它机器上也装程序的话,那只要看他们有没配置有远程控制开关机了
如果是那种客户/服务端的方式 ，就是被控制PC也需要安� ......
