我一直在玩一些东西,但无论如何都没有成功.我已经搜索过,但一直找不到我所追求或能够理解的东西.
我相信的问题是我在Excel中使用的日期的数据类型,并尝试将其传递给SQL查询.我知道我需要以某种方式转换它,以使这成为可能和正确.
如果我手动在查询中输入日期,它可以正常工作.但对客户使用不实用
我没有这方面的经验,我只是！通过它来阻止我.如果有人对我这么好,我会非常感激.
以下是我尝试使用的代码
@H_404_11@Sub DataExtract() ' DataExtract Macro ' ' Create a connection object. Dim cni96X As ADODB.Connection Set cni96X = New ADODB.Connection ' Set Database Range ' Provide the connection string. Dim strConn As String Dim Lan As Integer Dim OS As Integer Dim PointID As String ' Set Variables Lan = Range("Lan").Value OS = Range("OS").Value PointID = Range("PointID").Value StartDate = Range("StartDate").Value EndDate = Range("EndDate").Value 'Use the sql Server OLE DB Provider. strConn = "PROVIDER=sqlOLEDB;" 'Connect to 963 database on the local server. strConn = strConn & "DATA SOURCE=(local);INITIAL CATALOG=i96X;" 'Use an integrated login. strConn = strConn & " INTEGRATED SECURITY=sspi;" 'Now open the connection. cni96X.Open strConn ' Create a recordset object. Dim rsi96X As ADODB.Recordset Dim rsi96X1 As ADODB.Recordset Set rsi96X = New ADODB.Recordset Set rsi96X1 = New ADODB.Recordset With rsi96X ' Assign the Connection object. .ActiveConnection = cni96X ' Extract the required records1. .Open "SELECT ModuleLabel,originalAlarmTime FROM LastAlarmDetailsByTime WHERE (os = " & OS & " And theModule = N'" & PointID & "'AND AlarmCode = N'DI=1' And lan = " & Lan & " And originalAlarmTime BETWEEN N'" & StartDate & "' AND N'" & EndDate & "') ORDER BY originalAlarmTime DESC" ' Copy the records into sheet. Range("PointLabel,TimeCallInitiated").CopyFromRecordset rsi96X With rsi96X1 .ActiveConnection = cni96X ' Assign the Connection object. .Open "SELECT originalAlarmTime FROM LastAlarmDetailsByTime WHERE (os = " & OS & " And theModule = N'" & PointID & "'AND AlarmCode = N'CDI1' And lan = " & Lan & " And originalAlarmTime BETWEEN N'" & StartDate & "' AND N'" & EndDate & "')ORDER BY originalAlarmTime DESC" ' Copy the records into sheet. Sheet1.Range("TimeCallEnded").CopyFromRecordset rsi96X1 ' Tidy up .Close我希望这是有道理的.
解决方法
这是我多年前在这个主题上写的东西(如果你谷歌为“ONEDAYWHEN = 0”你可以看到它已被广泛阅读,虽然可能不够仔细！)：
相关的注册表项(适用于Jet 4.0)位于：
HKEY_LOCAL_MACHINE / SOFTWARE /微软/喷气/ 4.0 /发动机/ EXCEL /
始终读取ImportMixedTypes注册表项(是否为
很荣幸将在稍后讨论).您可以通过将密钥更改为来测试
ImportMixedTypes = OneDayWhen并尝试使用ISAM：你得到了
错误,“在引擎部分的Excel键中的无效设置
Windows注册表.“唯一有效的值是：
> ImportMixedTypes =文本
> ImportMixedTypes =多数类型
数据类型逐列确定. “多数类型”表示a
扫描每列中的特定行数(稍后更多)
并计算数据类型.单元格的值和格式都是
用于确定数据类型.大多数数据类型(即带有
最多行)决定整个列的整体数据类型.
在出现平局的情况下,偏向于支持数字.来自的行
发现的任何少数数据类型都不能作为多数数据
type将返回null值.
对于ImportMixedTypes = Text,整列的数据类型将为：
@H_404_11@Jet (MS Access UI): 'Text' data type DDL: VARCHAR(255) ADO: adWChar ('a null-terminated Unicode character string')请注意,这与以下内容不同：
@H_404_11@Jet (MS Access UI): 'Memo' data type DDL: MEMO ADO: adLongVarWChar ('a long null-terminated Unicode string value')ImportMixedTypes = Text将按照备注缩小255个字符的文本
演员文字.对于要识别为备注的列,多数类型
必须检测,这意味着检测到的大多数行必须包含
256个或更多字符.
但是在确定之前,每列扫描了多少行
混合和/或多数类型是什么？还有第二个注册表
key,TypeGuessRows.这可以是0-16(十进制)的值.一个值
从1到16(包括1和16)是要扫描的行数.值为零
表示将扫描所有行.
还有一个最后的转折点.连接中IMEX = 1的设置
string的扩展属性确定是否为ImportMixedTypes
价值得到尊重. IMEX指的是’IMport EXport模式’.有三种
可能的价值观IMEX = 0且IMEX = 2导致ImportMixedTypes为
忽略并使用“多数类型”的默认值. IMEX = 1是
确保ImportMixedTypes = Text的唯一方法.所结果的
连接字符串可能如下所示：
最后,虽然在MSDN文章中提到MAXSCANROWS
可以在连接字符串的扩展属性中使用
覆盖TypeGuessRows注册表项,这似乎是一个谬论.
以这种方式使用MAXSCANROWS = 0永远不会做任何事情
情况.换句话说,与推杆效果相同
扩展属性中的ONEDAYWHEN = 0,为none(甚至不是
错误！)同样适用于ImportMixedTypes,即不能使用
用于覆盖注册表设置的连接字符串.
总之,使用TypeGuessRows来让Jet检测是否是’混合的类型的情况存在或使用它来“欺骗”Jet检测a某些数据类型为多数类型.如果是检测到“混合类型”情况,使用ImportMixedTypes告诉Jet要么使用多数类型,要么将所有值强制为Text(最多255个字符).
