从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。