mysql结果未显示所有列值

mysql结果未显示所有列值,mysql,excel,vba,Mysql,Excel,Vba,我正在尝试使用odbc驱动程序8.0 ansi从mysql数据库(我使用xampp中的php myadmin)获取数据,连接工作正常,但记录没有显示数据库中的所有列值 我的excel结果: 但在phpmyadmin中,“辞职原因”不为空 我的vba代码如下所示: Sub LoadData() Dim conn As New ADODB.Connection Dim record_set As New ADODB.Recordset Dim column_name As ADODB.Field

我正在尝试使用odbc驱动程序8.0 ansi从mysql数据库(我使用xampp中的php myadmin)获取数据,连接工作正常,但记录没有显示数据库中的所有列值

我的excel结果: 但在phpmyadmin中,“辞职原因”不为空

我的vba代码如下所示:

Sub LoadData()
Dim conn As New ADODB.Connection
Dim record_set As New ADODB.Recordset
Dim column_name As ADODB.Field
Dim i As Integer

conn.ConnectionString = "driver={mysql odbc 8.0 ansi driver};server=server;port=3306;database=db;uid=user;password=password;"
conn.ConnectionTimeout = 3
conn.Open

record_set.Open "select * from employee_noc", conn

For Each column_name In record_set.Fields
    ThisWorkbook.Sheets(1).Range("A1").Offset(0, i).Value = column_name.Name
    i = i + 1
Next

ThisWorkbook.Sheets(1).Range("A2").CopyFromRecordset record_set

End Sub

尝试在select查询中强制转换字符串列。它应该会起作用

SELECT Col1, Col2, CAST(Col3 AS VARCHAR(8)) AS Col3 FROM TableName