Question

vb from子句语法错误

我用vb 做了个access数据库登陆器，调试时出现语子局语法错误，我一直没找到哪错，请教高手
代码：
private sub command1_click()
set conn=new ADODB.connetion
conn.Open"Provider=Microsoft.Jet.4.0;data source=boo_student.mdb"
dim sql as string
dim rs_login as new ADODB.Recordset
if trim(text1.text)="" then
msgbox"没有这个用户",vbOKOnly+vbExclamation,""
text1.SetFocus
else
sql="select*from user where 用户名='"&trim(text1.text)&"'" 看了别人的帖子在user后面加[]还是不行
rs_login.Open sql,conn,adOpenKeyset,adLockPessimistic
if rs_login.EoF=true then
msgbox"没有这个用户",vbOKOnly+vbExclamation,""
text1.SetFocus
elseif trim(rs_login.Fields(1))=trim(text2.text) then
userID=text1.text
userpow=rs_login.Fields(2)
rs_login.Close
Form1.show
else
msgbox"密码不正确"，vbOKOnly+vbExclamation,""
text2.SetFoucs
end if
end if
cnt=cnt+1 只能输入3次
if cnt=3 then
unload me
end if
exit sub
end sub
空格源程序里有的，这些是刚打的
错误提示：
实时错误'-2147217900 （80040e14）'
FROM 子句语法错误

Answer 1

如果肯定 Select 语句是有空格并加上[user]，如是这样：

sql = "select * from [user] where 用户名='" & Trim(Text1.Text) & "'"

那肯定没问题，除非表名或字段名写错，至于这句 conn.Open"Provider=Microsoft.Jet.4.0;data source=boo_student.mdb" ，只要数据库boo_student.mdb在当前程序目录下也是没问题的，否则也不可会运行到下面的代码。

Answer 2

你的程序里怎么大多数地方都没有空格?系统提示的是什么错误?

语法是没有错误,但你将表名user换一下,有些敏感的英文单词是关键字,查询老出错.

Answer 3

select*from user where 用户名
改成
select * from user where 用户名
================
你在rs_login.Open sql,conn,adOpenKeyset,adLockPessimistic
这里设置断点，运行到这里后在立即窗口里输入
?sql 回车后得到的结果看看sql语句是什么

Answer 4

sql="select * from [user] where [用户名]='"&trim(text1.text)&"'"

这样就不会有问题

Answer 5

data source=boo_student.mdb
数据库最好指定全路径，其它没看出哪里有语法错误。

Answer 6

Adodc1.RecordSource
=
"select
*
form
库存表
where"
&
condition
&
...
改为
Adodc1.RecordSource
=
"select
*
form
库存表
where
"
&
condition
&
...
要注意SQL命令字符串中每个命令单词前后的空格！！！