ADO Stream 对象

ADO（ActiveX Data Objects）Stream 对象是 Microsoft ADO 库中的一个组件，用于处理二进制或文本数据流。它常用于从文件、数据库或网络资源中读取和写入数据，例如处理大对象（LOB）数据（如 BLOB 或 CLOB）、文本文件、XML 数据等。以下是对 ADO Stream 对象的详细说明：

1. Stream 对象的主要功能

• 读取和写入数据：支持读取和写入二进制或文本数据。
• 处理大对象：常用于从数据库中读取 BLOB（二进制大对象）或 CLOB（字符大对象）。
• 文件操作：可以从文件加载数据或将数据保存到文件。
• 字符集支持：支持指定字符编码（如 UTF-8、ASCII）来处理文本数据。
• 流式处理：适合处理大块数据，避免一次性加载到内存。

2. 创建 Stream 对象

在 VB、VBA、VBScript 或其他支持 ADO 的环境中，可以通过以下方式创建 Stream 对象：

Dim stream As New ADODB.Stream

3. 常用属性

• Type：指定数据流的类型。
• adTypeBinary（1）：二进制数据。
• adTypeText（2）：文本数据（默认）。
• Charset：设置或获取文本流的字符集（如 "UTF-8", "ASCII", "Unicode"）。

  stream.Charset = "UTF-8"

• Size：返回数据流的大小（字节数）。
• Position：获取或设置流中的当前位置。
• EOS：指示是否到达流的末尾（End Of Stream）。
• LineSeparator：设置文本流的行分隔符（如 adCRLF、 adLF）。
• Mode：设置访问模式（如 adModeRead, adModeWrite, adModeReadWrite）。

4. 常用方法

• Open：打开 Stream 对象。

  stream.Open

• LoadFromFile：从指定文件加载数据到 Stream。

  stream.LoadFromFile "C:\example.txt"

• SaveToFile：将 Stream 的内容保存到文件。

  stream.SaveToFile "C:\output.txt", adSaveCreateOverWrite

• adSaveCreateOverWrite（2）：覆盖现有文件。
• adSaveCreateNotExist（1）：仅在文件不存在时创建。
• Write：写入二进制数据。

  stream.Type = adTypeBinary
  stream.Write binaryData

• WriteText：写入文本数据。

  stream.Type = adTypeText
  stream.WriteText "Hello, World!"

• Read：读取指定字节数的二进制数据。

  Dim data As Variant
  data = stream.Read

• ReadText：读取文本数据。

  Dim text As String
  text = stream.ReadText(adReadAll)

• adReadAll：读取全部文本。
• adReadLine：读取一行文本。
• Close：关闭 Stream 对象。

  stream.Close

• Flush：将缓冲区中的数据写入基础流。
• SetEOS：将流的末尾设置为当前位置。

5. 典型使用场景

场景 1：从数据库读取 BLOB 数据

以下示例展示如何从数据库中读取 BLOB 数据并保存到文件：

Sub ReadBlobFromDatabase()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim stream As New ADODB.Stream

    ' 连接数据库
    conn.Open "Provider=SQLOLEDB;Data Source=ServerName;Initial Catalog=DatabaseName;Integrated Security=SSPI;"

    ' 查询包含 BLOB 的记录
    rs.Open "SELECT ImageData FROM Images WHERE ID = 1", conn, adOpenStatic, adLockReadOnly

    ' 设置 Stream 为二进制模式并加载数据
    stream.Type = adTypeBinary
    stream.Open
    stream.Write rs.Fields("ImageData").Value

    ' 保存到文件
    stream.SaveToFile "C:\output.jpg", adSaveCreateOverWrite

    ' 清理
    stream.Close
    rs.Close
    conn.Close

    Set stream = Nothing
    Set rs = Nothing
    Set conn = Nothing
End Sub

场景 2：读写文本文件

以下示例展示如何使用 Stream 对象读写文本文件：

Sub ReadWriteTextFile()
    Dim stream As New ADODB.Stream

    ' 设置为文本模式并指定字符集
    stream.Type = adTypeText
    stream.Charset = "UTF-8"
    stream.Open

    ' 写入文本
    stream.WriteText "Hello, this is a test!"

    ' 保存到文件
    stream.SaveToFile "C:\test.txt", adSaveCreateOverWrite

    ' 清空 Stream 并重新加载文件
    stream.Position = 0
    stream.SetEOS
    stream.LoadFromFile "C:\test.txt"

    ' 读取文本
    Dim content As String
    content = stream.ReadText(adReadAll)
    Debug.Print content ' 输出：Hello, this is a test!

    ' 清理
    stream.Close
    Set stream = Nothing
End Sub

6. 注意事项

• 字符集：处理文本数据时，正确设置 Charset 属性以避免编码问题。默认字符集可能因环境而异。
• 资源管理：使用完 Stream 对象后，务必调用 Close 方法并释放对象（Set stream = Nothing）。
• 性能：Stream 适合处理大块数据，但对于小数据量，操作可能会略显复杂。
• 错误处理：始终添加错误处理以应对文件访问或数据库连接问题。

  On Error GoTo ErrHandler
  ' 代码
  Exit Sub
ErrHandler:
  MsgBox "Error: " & Err.Description

• 文件路径：确保文件路径有效且具有适当的读写权限。

7. 与 Recordset 对象的结合

Stream 对象常与 Recordset 对象一起使用，特别是在处理数据库中的 BLOB 或 CLOB 数据。例如，Recordset 的字段值可以直接写入 Stream，或者从 Stream 加载到 Recordset 字段。

8. 替代方案

• ADO.NET：在 .NET 环境中，System.IO.Stream 或 MemoryStream 提供类似功能，性能更优。
• FileSystemObject：在 VBScript 或 VBA 中，Scripting.FileSystemObject 可用于简单文件操作。
• Modern APIs：如 .NET 的 System.IO 或 Python 的 io 模块，适合现代开发。

9. 常见问题

• 读取数据为空：检查 Type 是否正确设置为 adTypeBinary 或 adTypeText，以及 Position 是否在流开头。
• 编码问题：确保 Charset 与数据源的编码一致。
• 文件保存失败：检查目标路径是否存在且具有写权限。

如果需要更具体的代码示例、特定场景的实现（如处理 XML 或网络流），或者其他 ADO Stream 相关问题，请提供更多细节，我可以进一步优化回答！