Question

VB中SQL语句找错

If Text1.Text > "" Then
If "Select"" From 用户表 Where 用户名='" & Text1.Text & "'and 密码='" & Text2.Text & "'" And Text3 = Label7.Caption Then
Form1.Hide
Form3.Show
MsgBox ("登录成功")
ElseIf "Select ""From 用户表 Where 用户名<>'" & Text1.Text & "'and 密码<>'" & Text2.Text & "'" Then
MsgBox ("无此账号或密码错误")
ElseIf Text3.Text = "" Then
MsgBox ("请输入验证码")
Else: MsgBox ("登录失败")
End If
Adodc1.Refresh
End If

Answer 1

你是不是做了一个登录界面，如果文本框中数据在数据库找得到的话才登得进去是吧，
首先，“select "" from 用户表”这里，怎么中间是两个双引号?如果你想列出所有的安段，应该用select * from， 如果你只想列出其中几个字段，就列出几个字段，比如，select 字段1，字段2，字段3..等,
ElseIf "Select ""From 用户表 Where 用户名<>'" & Text1.Text & "'and 密码<>'" & Text2.Text & "'" 这句，就算你要这么写，也应该把“and” 改成“or”。
问题很多，写不出来，大致思路给你一个：
if text1.text<>"" then
openDB
strQL = "select 用户名、密码 from 用户表"
objRs.Open strQL, objConn, adOpenKeyset, adLockOptimistic
if not objrs.eof and text3.text=lable7.caption then
Form1.Hide
Form3.Show
MsgBox ("登录成功")
elseif objrs,eof 。。。。
后面的就不写了，你要思路理清楚。

我百度文档里有一编我自己写的程序，你可以看看。

Answer 2

结构化查询语句Select 的作，是返回满足Where子句中条件的记录集合，也就是从数据表里返回了满足条件的记录，然后需要对记录的字段进行判断是否等于文本框里的内容，哪有你这样使用的，错的离谱了！
使用Select语句，需要数据控件或对象呀？
还是建议你好好的耐心的仔细的整理一下书本知识！

Answer 3

1、你那个SQL语句存在明显的字符串拼接问题
字符串拼接
" AAAA " & bbbb & " CCCC"
这里的bbbb是一个变量

2、你用的这种字符串拼接，然后直接查询数据，存在明显的SQL注入攻击问题。

追问

如何改正呢

Answer 4

一个双引号就可以了