VBA+mysql使用AppendChunk添加文本数据(哪里出错了)

ICC

Public Sub Addtext()
   Dim Con As ADODB.Connection
   Dim Rec As ADODB.Recordset
   Set Con = New ADODB.Connection
   Con.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};" + _
                          "Server=localhost;" + _
                          "DB=vbadb;" + _
                          "UID=VBA;" + _
                          "PWD=excel;" + _
                          "OPTION=3;" + _
                          "Stmt=Set Names 'GBK';"
   Con.Open
   Set Rec = New ADODB.Recordset
   Rec.Open "select * from animal", Con, adOpenDynamic, adLockOptimistic, adCmdText
   Rec.AddNew
   Rec("name").Value = Range("a1").Value
   Rec("rem").appendchunk Range("b1").Value
   Rec.Update
   Rec.Close: Set Rec = Nothing
   Con.Close: Set Con = Nothing
End Sub

为什么我把  Rec("rem").appendchunk Range("b1").Value  这条语句删除就能正常运行代码。
如果不删除的话一运行到Rec.Update这条语句就exce程序l就会崩溃退出。


求大神回复。

ICC

看来看去看不清楚是哪里出问题。求助求助。

zangyelv

伙计，解决了吗？