Создайте файл Crystal Reports TTX из ADODB.Recordset - PullRequest
Новая
       18

Создайте файл Crystal Reports TTX из ADODB.Recordset

0 голосов
/ 27 октября 2009

Существует ли вызов API для Crystal Reports 8.5, который будет генерировать файл схемы TTX из набора ADBB.Recordset VB6 во время выполнения, во многом аналогично тому, как вы можете создать XSD из DataSet в .NET? Я мог бы катиться самостоятельно, и я думаю, что, вероятно, придется, но я не хочу изобретать велосипед, потому что я упустил что-то очевидное.

1 Ответ

1 голос
/ 28 октября 2009

Боюсь, что нет. Но файл TTX - довольно простой формат - просто имя поля, тип, длина. Вы можете циклически просматривать коллекцию полей Recordset, чтобы создать строку необходимой информации и сохранить ее в файл 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.

...