Newsgroup: it.comp.lang.visual-basic
Titolo: Sempre layout datareport

Sono ancora alle prese con la stampa mediante datareport usando Shape.
Ho letto i vari articoli, che mi avete consigliato ma non .... riesco a 
capire,
non mi entra la sintassi del comando e poi quando devo usare il datareport
cosi' collegato men che meno...
Chiedo se c'č qualcuno che, partendo dalla tabella di cui il link mi aiuta a 
creare
le righe di codice per ottenere  tramite datareport la stampa cosi':
---------------------------------------------------------------------------------
cognome1  nome1
            data         lavoro    lavoro_1    entrata    uscita 
tempoimpiegato
       01/12/2005  12          0                8.05       9.10 
1.05.00
       07/12/2005  18          0               17.25      1.05       7.40.00
       23/12/2005  18          0               13.00      13.55     0.55.00
 
                     Totale : 9.40.00
---------------------------------------------------------------------------------
cognome1  nome2
            data         lavoro    lavoro_1    entrata    uscita 
tempoimpiegato
       01/12/2005   12         0                8.05        9.10 
1.05.00
........
........
e cosi' via fino alla fine dei nomi, spero di esserestato chiaro, ma cmq con 
la tabella č meglio comprensibile
La tabella l' ho popolata estraendo dati da altre tabelle tramite join, 
probabilmente lo scopo che voglio raggiungere lo si puň ottenere anche con 
una query unica (intendo con JOIN e SHAPE insieme) ma per ora preferisco 
lasciare cosi' in modo che mi sia piů comprensibile.
il link per la tabella  
http://it.geocities.com/cusna0/lavoro1.zip
Grazie 

 cosi' collegato men che meno...
Posta la query come l'hai scritta, e vediamo cosa si può fare per 
aggiustarla.
Mica vorrai che la inventiamo da zero, senza neppure un'idea di come 
funzionano i join...
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.

allora prendendo spunto da quello trovato in rete:
 Dim cn As New ADODB.Connection
      Dim rs As New ADODB.Recordset
      Dim cmd As New ADODB.Command
      Dim rs1 As New ADODB.Recordset
-----------------------------------------------
      Private Sub Command1_Click()
      Dim q As Integer
      Dim intCtrl As Integer
      Dim x As Integer
      Dim z As Integer
      x = 0
      q = 0
      z = 0
      With DataReport1
      .Hide
      Set .DataSource = rs
      .DataMember = ""
      With .Sections("section4").Controls
      For intCtrl = 1 To .Count
      If TypeOf .Item(intCtrl) Is RptLabel Then         ' se è una label
         .Item(intCtrl).Caption = "Nome" & " :"
          q = q + 1
      End If
      If TypeOf .Item(intCtrl) Is RptTextBox Then       ' se è un txtbox
        .Item(intCtrl).DataMember = ""
        .Item(intCtrl).DataField = "Cognome"
      End If
      Next
      End With
      q = 0
      With .Sections("Section1").Controls
          For intCtrl = 1 To .Count
          If TypeOf .Item(intCtrl) Is RptLabel Then
                   .Item(intCtrl).Caption = rs1.Fields(q).Name & " :"
                    q = q + 1
          End If
          If TypeOf .Item(intCtrl) Is RptTextBox Then
                   .Item(intCtrl).DataMember = "Command1"
                   .Item(intCtrl).DataField = rs1(z).Name
                   z = z + 1
          End If
      Next intCtrl
      End With
      .Refresh
      .Show
      End With
      End Sub
      Private Sub Form_Load()
      Command1.Caption = "Show Report"
      cn.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.JET.OLEDB.4.0;"
& _
               "Data Source=c:\vb\prove\lavoro1.mdb;"
      With cmd
           .ActiveConnection = cn
           .CommandType = adCmdText
           .CommandText = " SHAPE {SELECT Cognome,nome,lavoro FROM
`tabella1`}  AS Command1 COMPUTE Command1 BY 'Cognome', 'nome'"
           .Execute
      End With
      With rs
           .ActiveConnection = cn
           .CursorLocation = adUseClient
           .Open cmd
      End With
      Set rs1 = rs(0).Value
      End Sub

 allora prendendo spunto da quello trovato in rete:
La query, Mario, la query...
Quella con SHAPE, APPEND, GROUP BY, ecc...
Al limite, leggiti questo ottimo post/tutorial che ho trovato su 
google:
http://groups.google.it/group/it.comp.lang.visual-basic/tree/browse_frm/thread/eaab58e4fcd8eb88/1df84624e56d4b2b?rnum=1&q=SHAPE+APPEND+DATAREPORT&_done=%2Fgroup%2Fit.comp.lang.visual-basic%2Fbrowse_frm%2Fthread%2Feaab58e4fcd8eb88%2F1df84624e56d4b2b%3Fq%3DSHAPE+APPEND+DATAREPORT%26rnum%3D8%26#doc_1df84624e56d4b2b
Ciao


scusa ma la query c'è nel listato


 `tabella1`}  AS Command1 COMPUTE Command1 BY 'Cognome', 'nome'"
Leggi il link che ti ho postato, e prova a seguire passo passo ciò che 
fa.
E' veramente molto ben fatto.
