[VB6] Stampa su Datareport da 2 query

[aledg]

Ciao ragazzi

sono davvero disperato, devo stampare su un datareport senza dataEnviroment e non riesco a passare i dati presi da due tabelle diverse sul resport come posso fare??? Questo è il codice che inserisco, se tolgo la seconda SQL funziona ma con i soli dati della prima tabella se metto la seconda sql si blocca.....

 
' apro la connessione al database

' seleziono i dati dalla prima tabella
    mSQL = "SELECT * FROM ANAGRAFICA WHERE id=" & IDLIST1 & ""
    Set rs_db = cn_db.Execute(mSQL, , adCmdText)

' seconda query

SQL = "SELECT * FROM SEDUTE WHERE IDCLIENTE =" & IDLIST1 & ""
Set rs_db = CreateObject("ADODB.Recordset")
rs_db.Open SQL, cn_db, 3, 1

Do Until rs_db.EOF


data = rs_db("data")
trattamento = rs_db("trattamento")

' manda i dati al report

    Set DataReport1.DataSource = rs_db
    DataReport1.WindowState = vbMaximized
    DataReport1.Show vbModal


  rs_db.MoveNext
Loop


' chiudo il database

[aledg]

Ho trovato un paio di errori...
ho corretto con questo codice e creando 2 datareport separati la cosa funziona, quindi il
problema non è sul codice, ho anche capito che l'errore che mi genera se provo a mettere
tutto su un report unico, è causato dal loop che inserisco nella seconda tabella.
allora avrei pensato ad un'altra soluzione. ho i due report che da soli funzionano, esiste
un modo per "includerli" in un terzo report che faccia solo da contenitore per i due
funzionanti?

il codice che uso adesso e che funziona è questo:

Set cn_db = New ADODB.Connection
        cn_db.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & dbfile & ";" & _
        "Persist Security Info=False"
        cn_db.Open

IDLIST1 = List1.ItemData(List1.ListIndex)

' seleziona i dati
    mSQL = "SELECT * FROM ANAGRAFICA WHERE id=" & IDLIST1 & ""

' prende i dati
    Set rs_db = cn_db.Execute(mSQL, , adCmdText)

foto = rs_db("foto")

'Porta il Grafico nella pagina di stampa:
        With DataReport1.Sections("Section1")
        
'Imposta le dimensioni dell'immagine:
            With .Controls("Image1")
                .Height = 2190
                .Top = 2940
                .Left = 6360
                .Width = 2100
                .PictureAlignment = rptPACenter
                .SizeMode = 2
                Set .Picture = LoadPicture(foto)
                

            End With
        End With


' manda i dati al report n°1

    Set DataReport1.DataSource = rs_db
    'DataReport1.WindowState = vbMaximized
    DataReport1.Show vbModal


    rs_db.Close
    Set rs_db = Nothing





SQL = "SELECT * FROM SEDUTE WHERE IDCLIENTE =" & IDLIST1 & ""
Set rs_db = cn_db.Execute(SQL, , adCmdText)

Do Until rs_db.EOF


'data = rs_db("data")
trattamento = rs_db("trattamento")

' manda i dati al report N°2

    Set DataReport2.DataSource = rs_db
    'DataReport2.WindowState = vbMaximized
    DataReport2.Show vbModal


  rs_db.MoveNext
Loop


' chiude il database
    rs_db.Close
    cn_db.Close
    Set rs_db = Nothing
    Set cn_db = Nothing

[LMondi]

Ciao aledg,
a mio avviso, essendoci passato di recento sul tuo problema, nel tuo codice manca il comando .DataField, del tipo:
' Inserisce i dati nel DataReport:
DataReport2.Sections("Section1").Controls("TextBox 1").DataField = "Descriz"
Dai un'occhiata a questa discussione:
http://forum.html.it/forum/showthrea...15#post8722115