Question

求助！！参数不足,期待是1

Private Sub Command1_Click()
'1、声明变量
Dim db As New ADODB.Connection
Dim RsUser As New ADODB.Recordset
Dim strSql As String
Dim connStr As String

'2、打开数据库连接
connStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\custom.mdb" '连接Access的连接字符串
db.CursorLocation = adUseClient
db.Open connStr

'3、执行sql语句，把查询结果存在recordSet变量中

strSql = "delete from 用户信息 where 用户名=" & Text1.Text & ""

db.Execute strSql'（这里提示是参数不足,期待是1是什么原因啊）

'4、将结果根据实际需要显示在控件中
strSql = "select * from 用户信息"
RsUser.Open strSql, db, adOpenDynamic, adLockReadOnly
Set DataGrid1.DataSource = RsUser
DataGrid1.Refresh
End Sub

Answer 1

strSql = "delete from 用户信息 where 用户名=" & Text1.Text & ""
这个SQL语句写的有些问题，如果连接字符串的话应当在字符串两边加上引号，而又由于双绰号的关系，导致内部的双引号要变成单引号。正确的写法应当是
strSql = "delete from 用户信息 where 用户名='" & Text1.Text & "'"
注意，加了两个单引号