从mysql中select数据到excel表格中_已上传完整代码._

ftoilove

大家好

1. Private Sub CommandButton1_Click()
   
2. Dim conn As New ADODB.Connection
   
3. Dim rs2 As Object
   
4. Dim server_name As String
   
5. Dim database_name As String
   
6. Dim user_id As String
   
7. Dim password As String
   
8. Dim strsqlstatus As String
   
9. 
   
10. Set conn = New ADODB.Connection
    
11. Set rs2 = New ADODB.Recordset
    
12. server_name = "127.0.0.1"
    
13. database_name = "jira"
    
14. user_id = "123"
    
15. password = "123"
    
16. 
    
17. conn.Open "DRIVER={MySQL ODBC 5.1 Driver}" _
    
18. & ";SERVER=" & server_name _
    
19. & ";port=" & 3307 _
    
20. & ";DATABASE=" & database_name _
    
21. & ";UID=" & user_id _
    
22. & ";PWD=" & password _
    
23. & ";Stmt=set names GBK" _
    
24. & ";OPTION=16427"
    
25. 
    
26. strsqlstatus = "select * from changeitem where field='status'"
    
27. With rs2
    
28.     .Open strsqlstatus, conn
    
29.     Worksheets("sheet1").Range("a1").Offset(1, 0).CopyFromRecordset rs2
    
30. End With
    
31. Set rs2 = Nothing
    
32. conn.Close
    
33. Set conn = Nothing
    
34. End Sub

复制代码

如上代码中，最后一个需要查询的数据，始终无法导入.
查看数据库发现,该数据类型为:longtext.
查看microsoft资料,看到如下一句话:
若要将大于 255 个字符的字符串成功地保存到 Excel 列中，驱动程序必须将该目标列的数据类型识别为 memo，而不是 string
不知该如何处理，请教大家.

[ 本帖最后由 ftoilove 于 2011-1-30 17:25 编辑 ]

zez

对不起！我发错地方了！

[ 本帖最后由 zez 于 2011-1-25 12:48 编辑 ]

ftoilove

原帖由 zez 于 2011-1-24 18:48 发表
对不起！发错地方了！

发错地方了?.....

abdias520

你需上传问题附件，不然这么多代码也不知错误在什么地方的？

ftoilove

原帖由 abdias520 于 2011-1-25 09:42 发表
你需上传问题附件，不然这么多代码也不知错误在什么地方的？

完整的代码上传了。
现在的问题是，我看数据库中，只要类型是longtext的，都不能导出来.

pzhzshun

请问这个朋友，longtext 类型的数据是如何导出的，谢谢！