如何读取记录在VBA字符串(How to read recordset as string in V

我有一些代码，从数据库中读取记录。 当我阅读，记录变量修改表中的值，以自己的格式。 对于例如：

在数据库

时间价值是12345（不日期和时间），但是当记录集读取它，它作为对于EG：23-06-2012十点15分23秒

我刚刚发现，记录自己在做后存储在其自己的格式值。

Set 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的初期，在那里输入您必须用单引号前缀一个字符串遗留下来的。

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

文章来源: How to read recordset as string in VBA