这个语句这样写对吗？？？

tsoyzm　发表于：2014-11-08 16:18:25 　

下面的语句对吗？

运行SQL语句后，“公共预算”或“基金预算”字段值总不能插入到表中，在这个单引号和双引号或&连接符老是搞不明白，求帮助了。谢谢

Private Sub 资金性质_NotInList(NewData As String, Response As Integer)
  Dim intSelect As Integer
  Dim strSQL As String
  Dim Str As String
    '用户选择是否把新值加入列表
    intSelect = MsgBox("你输入的不在列表中，是否希望把“" + NewData + "”加入列表中？", vbYesNo + vbQuestion, "提示")
    If intSelect = vbYes Then
        If MsgBox("是“公共预算”资金吗？", vbYesNo, "提示") = vbYes Then
           Str = "公共预算"
        Else
           Str = "基金预算"
        End If
        DoCmd.SetWarnings False
        strSQL = "INSERT INTO [资金性质分类明细](资金名称,类别编号) VALUES('" + NewData + "', '" + Str + "')"
        DoCmd.RunSQL strSQL
        Response = acDataErrAdded
        DoCmd.SetWarnings True
    Else
        Response = acDataErrContinue
        Me.资金性质.Undo
    End If
End Sub

Top

朱先生发表于：2014-11-08 17:05:24

strSQL = "INSERT INTO 资金性质分类明细(资金名称,类别编号) VALUES('" & NewData & "', '" & Str & "')"

Top

tsoyzm 发表于：2014-11-08 17:46:39

朱先生的语句跟上面的一样，不行。

补充说明：

Str相当于一个常量，有两种情况，要么是“公共预算”，要么是“基金预算”，想把它插入到表中，其中：NewData的值能插入到“资金名称”字段中，但Str的值却总插入不到字段“类别编号”中。

Top

朱先生发表于：2014-11-08 21:12:39

上传附件，MDB格式

Top

tsoyzm 发表于：2014-11-08 22:03:32

只保留了几个相关的东西

点击下载此附件

Top

朱先生发表于：2014-11-08 22:32:24

资金性质分类明细],类别编号 数据类型是数字，
 Str = "公共预算" 扫STR 是文本
再改了试吧

Top

tsoyzm 发表于：2014-11-09 20:26:22


Private Sub 资金性质_NotInList(NewData As String, Response As Integer)
  Dim intSelect As Integer
  Dim strSQL As String
  Dim Str As String
    '用户选择是否把新值加入列表
    intSelect = MsgBox("你输入的不在列表中，是否希望把“" + NewData + "”加入列表中？", vbYesNo + vbQuestion, "提示")
    If intSelect = vbYes Then
        If MsgBox("是“公共预算”资金吗？", vbYesNo, "提示") = vbYes Then
           Str = 1
        Else
           Str = 2
        End If
        DoCmd.SetWarnings False
        strSQL = "INSERT INTO [资金性质分类明细](资金名称,类别编号) VALUES('" & NewData & "',  Str ")"
        DoCmd.RunSQL strSQL
        Response = acDataErrAdded
        DoCmd.SetWarnings True
    Else
        Response = acDataErrContinue
        Me.资金性质.Undo
    End If
End Sub

改成上面这样也不行啊？大家帮帮我吧

Top

tsoyzm 发表于：2014-11-09 20:29:42

上面改错了，应为:

strSQL = "INSERT INTO [资金性质分类明细](资金名称,类别编号) VALUES('" & NewData & "," & Str &")"
还是不行

Top

朱先生发表于：2014-11-10 10:47:25

资金性质分类明细表中的 类别编号     改为文本后 经测试可行

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

这个语句这样写对吗？？？