我正在寻找一种方法来重新格式化一些使用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))
,然后从数据库本身维护格式。