至少有一个参数没有被指定值？？

yuanlong336

Sub 矩形1_单击()
    Dim mydatabase As String
    Dim mytable As String
    Dim sql As String
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim modifyposition As String
    mydatabase = ThisWorkbook.Path & "\职工管理.mdb"    '指定数据库
    mytable = "职工基本信息"    '指定数据表
    modifyposition = InputBox("请输入要变更的职称", "修改员工职称")
    '建立与数据库的连接
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "microsoft.jet.oledb.4.0"
        .Open mydatabase
    End With
    '修改更新记录
    sql = "update " & mytable & " set 职称 = " & modifyposition & " where 职工编号='00009'"
    Set rs = cnn.Execute(sql)
    MsgBox "已成功将编号为00009职工的职称改为" & modifyposition, vbInformation
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub
以上代码在输入值为数字时运行正常，但是当输入值为汉字或字母时就会出现至少有一个参数没有被指定值，路过的朋友帮帮忙？
谢谢！标识红色部分是我认为有问题的代码，但不知道错在那里了？ 编辑.rar (28.18 KB, 下载次数: 10)

2009-1-4 21:22 上传

点击文件名下载附件

[ 本帖最后由 yuanlong336 于 2009-1-4 21:22 编辑 ]

yuanlong336

找到原因了。
    sql = "update " & mytable & " set 职称 = '" & modifyposition & "' where 职工编号='00009'"
居然是这两个小引号的问题，看来写代码还真的要小心！