dotNetHell.it - Forum - Creare report a tempo di esecuzione

jordiz Profilo | Newbie

2 messaggi | Data Invio: gio 2 ott 2003 - 11:01

Ciao a tutti, esiste un modo con il quale data una interrogazione SQL (es.: SELECT * FROM Contacts) si possa generare un prospetto di stampa Crystal Report?? Se viene modificata la stringa SQL come si fa ad aggiornare il report corrente??

Grazie

MICIOSOFT Profilo | Newbie

19 messaggi | Data Invio: gio 2 ott 2003 - 16:59

Ciao ti sei imbattuto in una bestia nera ovvero in CRYSTAL REPORT.
Io ci ho perso ben 2 mesi per realizzare una applicazione completa.
Supponiamo che crystal report faccia riferimento ad un data base con una tabella chiamata METEL e che abbia come campo univoco un indice ID, se vuoi selezionare i record dal 30° al 50° per esempio puoi fare in questo modo:
inserisci due textbox e un pulsante e associa all'evento click il seguente codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim selectformula As String

If Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) Then
MsgBox("Attenzione immettere solo valori numerici", MsgBoxStyle.Critical, "Attenzione")
Exit Sub
End If
selectformula = "CDbl ({metel.id}) >= " & TextBox1().Text & " AND CDbl({metel.id}) <= " & TextBox2().Text
CrystalReportViewer1.SelectionFormula = selectformula
CrystalReportViewer1.RefreshReport()

End Sub

Ciao e buona fortuna.

MICIOSOFT Profilo | Newbie

19 messaggi | Data Invio: gio 2 ott 2003 - 17:06

Ciao ti sei imbattuto in una bestia nera ovvero in CRYSTAL REPORT.
Io ci ho perso ben 2 mesi per realizzare una applicazione completa.
Supponiamo che crystal report faccia riferimento ad un data base con una tabella chiamata METEL e che abbia come campo univoco un indice ID, se vuoi selezionare i record dal 30° al 50° per esempio puoi fare in questo modo:
inserisci due textbox e un pulsante e associa all'evento click il seguente codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim selectformula As String

If Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) Then
MsgBox("Attenzione immettere solo valori numerici", MsgBoxStyle.Critical, "Attenzione")
Exit Sub
End If
selectformula = "CDbl ({metel.id}) >= " & TextBox1().Text & " AND CDbl({metel.id}) <= " & TextBox2().Text
CrystalReportViewer1.SelectionFormula = selectformula
CrystalReportViewer1.RefreshReport()

End Sub

Ciao e buona fortuna.