我正在寻找一种方法来重新格式化一些使用ODBC连接导入到工作表中的字段。字段尤其是日期字段。我需要将它们作为文本或其他格式导入,因为数据库中的数据有时会有日期“1850-01-01”或“0001-01-01”。导入excel时,日期仅显示为符号。
以下是我当前使用的已编辑查询:

Public Sub REFRESH_DATA()

Dim cnDB As New ADODB.Connection    'Declare the connection object.
Dim rsRecords As New ADODB.Recordset 'Declare a Recordset object.

'Open the connection

cnDB.Open "DSN=DB;Database=DB;Servername=server.net;UID=username;Password=password;Port=0000;ReadOnly=0;SQLBitOneZero=0;LegacySQLTables=0;NumericAsChar=0;ShowSystemTables=0;LoginTimeout=0;QueryTimeout=0;DateFormat=1;SecurityLevel=onlySecured;CaCertFile="

rsRecords.Open "SELECT REGION_CD, CUST_NO, EFF_DATE FROM DATABASE.TABLE", cnDB

'Print the records in the correct table
.Range("A2").CopyFromRecordset rsRecords

'Close everything
rsRecords.Close
Set rsRecords = Nothing
cnDB.Close
Set cnDB = Nothing

End Sub

EFF_DATE是有问题的列。

最佳答案

把我自己的问题的答案张贴给后代:
如果我的SELECT语句是EFF_DATE,我将其改为CAST(EFF_DATE as varchar(30)),然后从数据库本身维护格式。

10-06 14:19