[VB6] DataReport basato su un singolo campo

[ciro78]

Salve,
ho il seguente problemaTramite ado vado a leggere il mio database
ipotiziamo una semplice tabella con un solo campo chiamato campo1
ora
se volessi creare in data report un report che mi stampi appunto quel campo come debbo fare?

ho provato a settare come datasource il mio recordset e poi a mettere i data field il nome del campo ma non funziona

ciao

[LMondi]

Ciao ciro78.
Di norma così dovrebbe funzionare:

' ...... ..... .....

RST.Source = "SELECT Campo1  FROM TblProva;"
    RST.Open , Con, adOpenDynamic, adLockOptimistic

        ' Controlla che il DB contenga i dati da visualizzare\stampare:
        If RST.EOF = False And RST.BOF = False Then
        ' Assegna il riferimento all'oggetto:
            Set DReport.DataSource = RST
            ' Inserisce i dati nei controlli del DataReport:
            With DReport.Sections("Section1")
                .Controls("Txt1").DataField = "Campo1"
            End With
' ........ ....... .......

[ciro78]

allora io ho fatto cosi

Private Sub Command1_Click()
rp1.Show
End Sub

Private Sub Form_Load()
  Call ConnessioneDatabase
  query = "SELECT Campo1  FROM tab1"
  Set rs = New ADODB.Recordset
  rs.Open query, connessione, adOpenDynamic, adLockOptimistic
  ' Controlla che il DB contenga i dati da visualizzare\stampare:
  If rs.EOF = False And rs.BOF = False Then
    ' Assegna il riferimento all'oggetto:
    Set rp1.DataSource = rs
    ' Inserisce i dati nei controlli del DataReport:
    With rp1.Sections("Section1")
       .Controls("txtCampo1").DataField = "Campo1"
    End With
  End If
End Sub

mi dice che c'è un conflitto. o meglio mi dice che gli argomenti non sono di tipo valido non sono compresi nell'intervallo predefinito o sono in conflitto.

Credo che il codice sia giustoi ma che dipenda dal fatto che in rs(il mio recrodset) c'è più di iun valore(che ovviamente devono essere visualizzati).

[ciro78]

ci sono riuscito dimenticavo di settare nel report il valore di datafield
grazie mille per l'aiuto

ciao e buona domenica