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

来源:百度知道 编辑:UC知道 时间:2024/06/08 03:35:33
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

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