SQL2000中,执行保存记录UPDATE方法时提示“对于造型说明无效的字符值”为什么?谢谢

解决方案 »

  1.   

    你要UPDATE的字符是什么。字段类型是什么?
      

  2.   

    很多不知道是哪个出错了。'保存字段数据
    'On Error GoTo AdoErr:
    If AddFlag = "ADD" Then
       rdCon.AddNew
       rdCon.Fields("cConCode") = txtConCode
    End If
    rdCon.Fields("cConName") = txtConName
    Set rdFindCus = SysCon.Execute("select cCusCode from Cus where Rtrim(Ltrim(cCusName))='" & Trim(txtCus) & "'")
    rdCon.Fields("cCusCode") = rdFindCus.Fields(0)
    rdCon.Fields("dConDate") = dtpConDate
    rdCon.Fields("mConMoney") = txtConMoney
    rdCon.Fields("cMemo") = txtMemo
    If txtFileName <> "" Then
       If Dir(Trim(txtFileName)) <> "" Then
          If chkSaveFlag.Value = 1 Then
             Dim rdMSTream As ADODB.Stream
             Set rdMSTream = New ADODB.Stream
             rdMSTream.Type = adTypeBinary
             rdMSTream.Open
             rdMSTream.LoadFromFile txtFileName
             rdCon.Fields("cFile").Value = rdMSTream.Read
             rdCon.Fields("cSaveFlag") = "True"
             txtFileName = Right(Trim(txtFileName), Len(Trim(txtFileName)) - InStrRev(txtFileName, "\"))
          Else
             rdCon.Fields("cSaveFlag") = "False"
          End If
          rdCon.Fields("cFileName") = txtFileName
          rdCon.Fields("iFileSize") = txtFileSize
          rdCon.Fields("dFileTime") = txtFileTime
       End If
    End If
    If txtDef1 <> "" Then rdCon.Fields("cDefine1") = txtDef1
    If txtDef2 <> "" Then rdCon.Fields("cDefine2") = txtDef2
    If txtDef3 <> "" Then rdCon.Fields("cDefine3") = txtDef3
    If txtDef4 <> "" Then rdCon.Fields("cDefine4") = txtDef4
    If txtDef5 <> "" Then rdCon.Fields("cDefine5") = txtDef5
    If txtDef6 <> "" Then rdCon.Fields("cDefine6") = txtDef6
    '开始事物****************
    SysCon.BeginTrans
    rdCon.Update
    SysCon.CommitTrans
    '************************