ExcelVBA操作MySQL

筱悠

感谢楼主分享~

白马胖子

大神，我有问题咨询。
Public Sub Allrecordset_in_RD()
   Dim Con As ADODB.Connection
   Dim Rec As ADODB.Recordset
   Dim iRowscount As Long
   Set Con = New ADODB.Connection
   Con.ConnectionString = "DRIVER={MySQL ODBC 5.2 Unicode Driver};Server=111.1.1.1;Port=3306;Database=xxx;UID=a;PWD=a;OPTION=3;Stmt=Set Names 'GBK';"
   Dim sqlString As String
   sqlString = "select * from t_program_update_autoapp_rd where qc_num_ like '%acv%'"
   Con.Open
   Set Rec = New Recordset
   Set Rec = Con.Execute(sqlString, iRowscount, adCmdText)
   Range("a1:ag1").Value = Array("pid", "no_", "qc_num_", "explain_", "module_", "developer_", "careful_", "release_domain_", "actual_version_", "ess_bss_", "code_file_", "tag_num_", "cvs_version_", "cvs_history_version_", "deposit_path_", "remarks_", "time_", "userid_", "code_code_", "source_", "insert_type_", "a4", "a5", "update_time_", "conflict_solve_info_", "beijing", "shandong", "heilongjiang", "hebei", "henan", "liaoning", "harvest", "modify_type_")
   '显示标题行
   Range("a2").CopyFromRecordset Rec
   Rec.Close: Set Rec = Nothing
   Con.Close: Set Con = Nothing
   MsgBox "显示 " & iRowscount & " 行", vbOKOnly, ""
   '显示查询记录
End Sub

为啥展现出的结果的行数正确（9行），A列的值正确（9行），但是其他列的值都是空白的？sql语句在数据库查询是正确的。
如果在Range("a2").CopyFromRecordset Rec加断点的话，就能显示第一行的完整数据，但是其他行还是不行。

zouyuejian

白马胖子 发表于 2013-10-14 16:38
大神，我有问题咨询。
Public Sub Allrecordset_in_RD()
   Dim Con As ADODB.Connection

没有实际数据看。我只有猜测:可能是字段的数据类型的问题。你尝试使用其他的数据类型看看。

白马胖子

zouyuejian 发表于 2013-10-15 08:58
没有实际数据看。我只有猜测:可能是字段的数据类型的问题。你尝试使用其他的数据类型看看。

t_program_update_autoapp_rd.zip (1.26 KB, 下载次数: 19)

2013-10-15 10:01 上传

点击文件名下载附件
数据库建表

大神，附件是SQL建表语句，拜托您看看。

白马胖子

大神，链接mysql时，text类型的字段显示不出。其他字段正常。有解决方案吗？

zouyuejian

白马胖子 发表于 2013-10-15 14:40
大神，链接mysql时，text类型的字段显示不出。其他字段正常。有解决方案吗？

我记得当时该问题无法解决。抱歉，如果你找到解决方法，也烦告诉我。

G.Eleven

MYSQL呀,不错的东东,就是没有连接过这个数据库

xgy0214dxy

谢谢，收藏了

ICC

'使用AppendChunk添加文本数据。
'下面的例子用AppendChunk添加单元格文本到rem字段里?
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这条语句就excel就会崩溃退出。


求大神回复。

tl709709

going ahead , studying