vba - 如何在VBA中以字符串形式读取记录集

Question

我有一些代码可以从数据库中读取记录。当我读取时，记录集变量将表值修改为其自己的格式。例如:

在数据库中

Time value is 12345 (Not date & time) but when record set reads it, it comes as For Eg: 23-06-2012 10:15:23

我刚刚发现记录集本身在执行后以自己的格式存储值。

设置 rs = CmdSqlData.Execute()

那么有没有办法将记录集定义为String？

这是代码。

Dim rs As ADODB.RecordSet
Set rs = CmdSqlData.Execute()
Do While (rs.EOF = FALSE And rs.BOF = FALSE)
  p = rs.GetRows(1)
  cell(1,1) = p(0,0)
Loop

任何人都可以让我知道如何将数据读取为字符串(因为它在数据库中)，这样格式就不会发生变化。

注意:由于其他要求，我无法转换 Excel 单元格格式，但我想将所有内容读取为来自表的字符串

Answer 1

如果你写

CStr(p(0,0))

对于单元格，Excel 会将内容转换为适当的类型，因此如果 p(0,0) 是数字，则单元格将是数字。

但是，如果你写

ActiveSheet.Cells(1, 1) = "'" & p(0, 0)

单元格 A1 将包含要查看的 '2，但可以将其作为字符串进行操作。这是早期 Excel 遗留下来的，在 Excel 中输入字符串时必须在其前面加上单引号。

A1
2   
=A1=2   FALSE
=A1="2" TRUE