[VB6] DataReport

[baccobacco]

ho un grandissimo bisogno di aiuto

ho creato con access un database
ho una tabella
in vb ho fatto tutti i form di cui avevo bisogno
ed alla fine dato che ho bisogno di stampare dei report
ho provato ad utilizzare DataEnvironment
fino a qui tutto ok
sono riuscio a fare la connessione al database e riesco a stampare i report
ma ecco il problema:
_non riesco ad inserire nessuna sql per estrapolare solo il report che mi serve in base al campo scelto da me
_tenete presente che se inserisco un valore predefinito nei criteri allora riesco, ma io voglio inserire una variabile che mi consenta di decidere al momento il mio criterio (molto simile all'inputbox diciamo)

un po' difficile da spiegare scusate e grazie

[alka]

Che linguaggio? Suppongo sia VB6...confermi?

[baccobacco]

si

[alka]

C'è il forum apposta: Visual Basic e .Net Framework.

In futuro, scrivi lì le domande su VB6.

Questa discussione la sposto io.

Ciao!

Addendum: scusa, ho sbagliato a scriverti il suggerimento.
Volevo solo dirti di specificare il linguaggio... :rollo:
E' venerdì per tutti...

[baccobacco]

ma scusa io sono in Visual Basic e .Net Framework.

[yyzyyz]

il crossposting è vietato sul forum.

http://forum.html.it/forum/showthrea...hreadid=838237

cmq tornando la tuo problema potresti stampare da codice
anzikè utilizzare il dataEnv, modificando la stringa mSQL
puoi ottenere i risultati ke vuoi sul db.

Dim cn_db As ADODB.Connection
Dim rs_db As ADODB.Recordset
Dim dbfile As String
Dim mSQL As String

' nome database
dbfile = "blob.mdb"

' apre la connessione al database
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

' seleziona i dati
    mSQL = "SELECT Nachname,Vorname FROM tblPersonal"

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

' manda i dati al report
    Set DataReport2.DataSource = rs_db
    DataReport2.WindowState = vbMaximized
    DataReport2.Show vbModal

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

[alka]

Originariamente inviato da yyzyyz
il crossposting è vietato sul forum.

Ben detto...ma già che hai individuato il "crossposting", invia la tua risposta nella discussione originale e non in quella duplicata.

Ho comunque fuso le due discussioni.

Ciao!