更改ADODB.Recordset或ADODB.Connection的语言

Question

使用记录集从连接检索数据时，无法控制日期语言。我是这样检索数据的：

Set rsData = New ADODB.Recordset
Set rsData = conODBC.Execute(sql)

SQL语句的行如下：

TO_CHAR(TO_DATE(TO_CHAR(DB_MONTH), 'MM'),'MON')||DB_YEAR AS DATE_STR

它将DB_MONTH和DB_YEAR转换为类似于DEC16的东西，并在中非常好地工作。

但是，如果它以记录集字段的形式出现在VBA中，则日期将转换为德语(我正在使用一个德国Excel)，并接收DEZ16。

当我将数据卸载到工作表并继续使用它时，这将成为一个问题，因为我无法控制数据字符串是如何返回的。

Answer 1

在运行查询之前，必须将数据语言设置为所需的值。应该是这样的：

Dim cmd As New ADODB.Command
cmd.CommandType = CommandType.Text
cmd.CommandText = "ALTER SESSION SET NLS_DATE_LANGUAGE = 'AMERICAN';"
cmd.Execute