+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

[active report designer]

  1. #1
    L'avatar di francof
    francof non è in linea Scolaretto
    ciao a tutti,
    sto cercando di iniziare ad utilizzare Active Report e negli esempi allegati all' applicazione c' è un progetto che si chiama: Simple Designer.
    contiene due finestre 1 di Design e l'altra di Preview. serve forse x creare reports da inserire nei vari progetti?

    franco

  2. #2
    L'avatar di gibra
    gibra non è in linea Very Important Person
    Esattamente.

    Se al controllo ADO (vedi le Proprietà) passi la stringa di connessione al DB e la stringa SQL della query di selezione, potrai anche avere l'anteprima immediata facendo clic sulla linguetta PREVIEW.
    E' comodissimo!
    Puoi distribuirlo (è fatto apposta) così l'utente, se ne ha le conoscenze, può crearsi i propri report autonomamente, oppure eventualmente modificare il layout del report. Anche se poi nella pratica quasi nessun cliente lo fa o lo sa fare.
    Quindi mi chiamano, ed io vado, a me basta che paghino... )

    Nota il tasto 'Script' sulla toolbar che ti permette di inserire codice in qualsiasi evento del report.

    Ciao
    ℹ️ Leggi di più su gibra ...

  3. #3
    L'avatar di francof
    francof non è in linea Scolaretto
    ciao Gibra,

    grazie per la spiegazione, quindi io posso creare un report con questa, chiamiamola, utility e poi inserire il report nel progetto che sto sviluppando? sul tipo di Crystal Report.
    a proposito di CR: Spero che Active Report sia più compatibile con i progetti VB (visto che lavora all' interno delle finetre di progettazione di VB stesso, almeno così mi sembra). CR mi ha dato tanti problemi che mi è passata la voglia di utilizzarlo.

    ti butto lì un' altro quesito che mi lascia in dubbio:
    al momento sono riuscito, utilizzando il Wizard ed inserendo un DataControl ADO a creare un report che preleva i dati da una tabella.
    nelle proprietà del DataControl ho specificato (tasto build) il provider Jet 4 e collegato la tabella interessata e, quindi ordinati con una SQL. collegati i vari textbox (si chiamano così? o field?) ai campi della tab. stranamente funziona.

    in un altro esempio questi collegamenti non vi sono ma, se ho ben capito, vengono effettuati da codice in esecuzione, ho provato a seguire questo esempio scrivendo all' interno dell' Active rep.:
     
    Private Sub activereport_ReportStart() '
    
    Dim adoCon As ADODB.Connection   'x active report
    Dim adoRec As ADODB.Recordset    'x active report
    
    
    Dim StrSQL As String
    Set adoCon = New ADODB.Connection
    
    adoCon.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source = C:\ESA Archivi\ESA.MDB"
    adoCon.Open
    
    Set adoRec = New ADODB.Recordset
    
    StrSQL = "Select * From tblAff Order By tblAff_Cod"
    DCaff.ConnectionString = adoCon
    DCaff.Source = StrSQL
    DCaff.Refresh
    
    End Sub
    
    mi si visualizza un report con i NOMI dei campi anzichè i valori della tabella.
    quello che mi sfugge è come associare i campi della tab ai fields del report: cliccando sulla proprietà DataField del textbox mi dice, ovviamente, che il controllo ADO non è correttamente impostato con connessione ecc.

    a questo punto mi dirai. STUDIA!

    franco

  4. #4
    L'avatar di francof
    francof non è in linea Scolaretto
    trovato
     Option Explicit
    
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    Sub ActiveReport_DataInitialize()
        
    Dim cnnStr As String
            ' Open data base here (called from form)
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
            
            ' Add fields to ActiveReports' Fields Collection
     Fields.Add "Cod"
     Fields.Add "Sigla"
     Fields.Add "Descr"
        
            ' Set Connection String and connect to DB
    cnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\ESA Archivi\ESA.MDB"
    cn.Open cnnStr
        
            ' Set recordset properties and generate recordset
    rs.Open "SELECT * FROM tblBrev WHERE tblBrev_Tipo LIKE 'P'ORDER BY tblBrev_Grado", cn
    
    End Sub
    
    Private Sub ActiveReport_FetchData(EOF As Boolean)
    Dim pippo
        ' Exit sub if EOF is true
        If rs.EOF = True Then Exit Sub
        EOF = False
        
        ' Sets ActiveReports' fields collection values to the
        ' current recordset value
        Fields("Cod").Value = rs!tblBrev_Cont
        Fields("Sigla").Value = rs!tblBrev_Sigla
        Fields("Descr") = rs!tblBrev_Des
        rs.MoveNext
    End Sub
    
    franco

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. rave designer report 5
    Da venant nel forum Delphi
    Risposte: 0
    Ultimo Post: 19-08-2007, 10:36
  2. active report
    Da nunzio nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 18-06-2007, 15:35
  3. Visual Basic Net + Active Report
    Da giucorn nel forum Visual Basic .Net
    Risposte: 0
    Ultimo Post: 13-06-2007, 15:41
  4. stampa active report
    Da donini nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 14-04-2007, 23:16
  5. active report sommare
    Da donini nel forum Visual Basic 6
    Risposte: 4
    Ultimo Post: 19-11-2006, 14:22