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

显示全部楼层 · 2009-6-16 10:56:47

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

千问 · 2009-6-16 10:56:47

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