从 ADODB.Recordset 生成 Crystal Reports TTX 文件

Question

是否有针对 Crystal Reports 8.5 的 API 调用，该调用将在运行时从 VB6 ADODB.Recordset 生成 TTX 架构文件，与从 .NET 中的 DataSet 生成 XSD 的方式非常相似？我可以自己推出，而且我想我可能必须这样做，但我不想重新发明轮子，因为我错过了一些明显的东西。

Answer 1

恐怕不是。但 TTX 文件的格式非常简单 - 只有字段名称、类型、长度。您可以循环访问 Recordset 的 Field 集合以创建所需信息的字符串，并将其保存到 TTX 文件中。恐怕我手头没有 Crystal 或 VB6，所以我无法提供确切的详细信息，但类似这样的伪代码：

Dim strTTX as String
Dim intI as Integer
With rst
    For intI = 0 to .Fields.Count - 1
        With .Fields(intI)
            strTTX = .Name & vbTab & FieldTypeDesc(.Type)
            If .Type = adChar Then
                strTTX = strTTX & vbtab & .Length
            End
            strTTX = strTTX & vbCrLf
        End With
    Next
End With
strTTX = Left$(strTTX, Len(strTTX) - 1) 'remove trailing vbCrLf

然后添加代码将该字符串保存为 TTX 某处。