Newsgroup: it.comp.lang.visual-basic
Titolo: DataREPORT questo... a me sconosciuto!

 E' possibile passare una stringa SQL ad un 
datareport in fase di esecuzione del programma?
Vorrei filtrare i dati di una tabella gia' 
collegata al datareport.
Qualcuno ha qualche esempio che utilizzi 
l'utility DataReport?
ciao e grazie
Marco 
--m--/###)
--b--\###)
--
Posted from 
relay1.ssi.enel.it
 [146.133.2.149] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG





Ho anche io lo stesso problema, e non sono riuscito 
a risolverlo, pur leggendo tutto il manuale in linea e altri manuali in giro... 
inoltre vorrei passare il parametro per la selezione dei record da un form... 
cosa che con access si fa in 1, 2 minuti, con il data report non riesco a 
venirne a capo.


Se mai hai già trovato una soluzione di sarei grato 
se me la rigiri in posta o la pubblichi in questo NG, farò altrettanto. grazie! 



dan...@alpimedia.it
; oppure 
al...@alpimedia.it


 



Non ne so molto di + ma mi pare che il codice qui sotto, che mi sono
permesso di ricopiare da un altro messaggio del NG, possa essere una buona
base di partenza per risolvere i problemi che ho....questa sera provo!
ciao Marco  
Dim Conn As ADODB.Recordset
Dim strSQLQuery As String
Const OLEDBVer = "3.51"
Set Conn = CreateObject("ADODB.RecordSet")
Conn.ActiveConnection = "Provider=Microsoft.Jet.OLEDB." + OLEDBVer +
";DataSource=" + App.Path + "\Db\ExpoNet.adv"
strSQLQuery = "SELECT tbListini.CDListino,
tbListini.CDArticolo,tblArticoli.CDOriginale, tblArticoli.Descrizione,
tbListini.Prezzo FROMtbListini INNER JOIN tblArticoli ON
tbListini.CDArticolo =tblArticoli.IdArticolo WHERE CDListino='" &
Trim(lCDListino) & "' ANDAbilitato=true"
Conn.Open (strSQLQuery) 
Conn.Requery
Set DataReportListino.DataSource = Conn
DataReportListino.Refresh 
DataReportListino.Show
Conn.Close






Dopo molta fatica e non ho ancora finito x il 
NG: 
consiglio di seguire tutti i passi 
indicati nel msdn library alla voce "creazione di un semplice report dati" che 

spiega in modo abbastanza preciso e "passo passo" 
come si utilizza un DataReport infine potete inserire nel form un textbox 
chiamato per esempio "txtCompanyName" quindi usarlo come filtro richiamando il 
DataEnvironment.recordsetimpostato.Filter (vedi esempio sotto) che filtra i 
record  >= della Tabella Customers del DB Northwind (es. fornito con VB6 
e ACCESS) in base ad un valore passato da maschera in un textbox chiamato 
txtCompanyName.


Questo sistema è meno veloce di una SQL 



 


Private Sub cmdShow_Click()
    
DeNwind.rsCustomers.Filter = "CompanyName >= '" & txtCompanyName & 
"'"
    RptNwind.Show
End Sub


 


E' anche possibile passare e o modificare una SQL 
impostata per esempio utilizzando il codice:


 


Private Sub 
cmdShow_Click()


    Dim strSQL As 
String
    strSQL = "SELECT * FROM Customers where CompanyName 
= '" & txtCompanyName & "'"
    
DeNwind.rsCustomers.Open
    
DeNwind.rsCustomers.Requery
    Set RptNwind.DataSource = 
DeNwind
    RptNwind.Refresh
    
RptNwind.show
    DeNwind.rsCustomers.Close


End Sub


 


Ora il mio problema è riuscire a passare ad una 
label di un DataReport un valore inserito in un controllo textBox di un form, se 
possibile senza utilizzare Database o tabelle di appoggio.


Grazie se qualcuno mi aiuta.


Ciao


Daniele


al...@alpimedia.it



 ha scritto nel 
  messaggio 
news:006e01bfeca6$cea2b840$0900a8c0@daniele
...

Se ho capito bene qual'è il tuo problema, puoi 
  risolverlo così:


Una qualsiasi label o casella di testo puoi 
  gestirla da codice facendo dataReport.sections(1).controls(1), dove 
  sections(i) è la sezione in cui si trova il controllo e controls(i) è appunto 
  il controllo.


 


se riesci a risolvere (o se hai già risolto), 
  fammi sapere.


 


Antonio 
ant...@inteldataonline.com