请教在SQL句子中使用用变量名时的格式

Question

这样试试
Private Sub cmdOK_Click()
username = txtUserName.Text
password = txtPassword.Text
Set cn = New Connection
Set rs = New Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=‘F:\db\用户列表.mdb’"
rs.Open "select * from 用户列表 where 用户名＝'" & username & "'", cn

Answer 1

rs.Open "select * from 用户列表 where 用户名＝" & username, cn

Answer 2

Private Sub cmdOK_Click()
username = txtUserName.Text
password = txtPassword.Text
Set cn = New Connection
Set rs = New Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\db\用户列表.mdb"
rs.Open "select * from 用户列表 where 用户名＝'" & username & "'", cn格式一般为：select * from table where pamar='" & string & "'"
如果参数属于整数类型就可以写为：select * from table where pamar=" & PamarInteger

Answer 3

各位大侠，我用了：
rs.Open "select * from 用户列表 where 用户名＝'" & username & "'", cn
可还是不行阿，提示：语法错误（操作符丢失）在查询表达式‘用户名＝’“中
这是怎么回事阿，高人救我

Answer 4

而我用rs.Open "select * from 用户列表 where 用户名＝" & username, cn 
则提示说：至少一个参数没有被指定值
也是不行啊，求解

Answer 5

是不是你的username中包含一个西文的“'”单引号呢？如果是，就会出现这个问题。如果不是，那么可能是Set cn = New Connection和Set rs = New Recordset这两句不对，改为ADO连接如下试试看：
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

Answer 6

sun_jb,你指的是那种情况，rs.Open "select * from 用户列表 where 用户名＝'" & username & "'", cn 还是而我用rs.Open "select * from 用户列表 where 用户名＝" & username, cn ，还有，我定义cn和rs时没有用dim cn as adodb.connection

Answer 7

天光云影你的问题我碰到过，是不是一个用户登陆界面啊，你做麻烦了，你看看我的，连DIM都不用：p 这里的adodc1指的是你在该窗体中调用的数据库，至于数据库的连接你应该知道，如不知道你再问，再此我就不废话了。
Private Sub cmdOK_Click()
if adodc1.recordset("passwd")=textbox.text then
"你向显示的窗口".enabled = ture
"你向显示的窗口".show
else 
msagebox "密码错误，请从新输入"end if 
end sub

Answer 8

下面的代码也可以的，但是需要定义rs!!!
Private Sub Command1_Click()
    If Text1.Text = rs.fields("你要比较的字段名") Then
        MsgBox "可以进入下一页", vbInformation
    Else
        MsgBox "游客止步", vbInformation
    End If
End Sub

Answer 9

strSQL = "SELECT * FROM [用户列表] WHERE [用户名]＝""username"""
'会不会是中文字段名的问题呢?

Answer 10

to ozarkgirl:我就是不想用ADODC，要用代码实现啦
to pinktime 当然定义过了，不会这么弱者啦