从ADODB.Recordset生成Crystal Reports TTX文件

Question

是否有一个针对Crystal Reports 8.5的API调用，它将在运行时从VB6 ADODB.Recordset生成一个TTX模式文件，这与您可以从生成XSD的相同方式.NET中的数据集？我可以推出自己的产品，而且我想我可能不得不这样做，但我不想重新发明轮子，因为我错过了一些明显的事情。

Answer 1

恐怕不是。但TTX文件是一个非常简单的格式 - 只是字段名称，类型，长度。您可以遍历Recordset的Field集合来创建所需信息的字符串，并将其保存为TTX文件。我怕我没有水晶或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地方。