ADODB.RecordsetからCrystal Reports TTXファイルを生成します

Question

.NETのDataSetからXSDを生成するのとほぼ同じ方法で、実行時にVB6 ADODB.RecordsetからTTXスキーマファイルを生成するCrystal Reports 8.5のAPI呼び出しはありますか？私は自分で転がすことができ、おそらくそうする必要があると思いますが、明らかな何かを見逃したので、車輪を再発明したくありません。

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としてどこかに保存します。