salve ragazzi,
propongo un problema che ho visto già affrontato su qualche altra discussione ma VERAMENTE non ho trovato risposta che fa al caso mio:
Visual studio 2008 vb.net...crystal...
HO UNA FORM (FORM1) CON UNA TEXTBOX (TEXTBOX1)
CON UN BUTTON APRO FORM4 CHE HA UNA DATAGRIDVIEWER E UN CRYVIWEWER....
Public Class Form4
Dim connstring As String = "PROVIDER=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Password=miapwd; Initial Catalog=mioDB;Data Source=miosrv"
Dim cn As New OleDbConnection(connstring)
Dim sql As String = ""
form con crywiever... e una datagridview...
A fronte dell'evento load...
Dim da As OleDb.OleDbDataAdapter
Dim ds As New DataSet
Form1.TextBox1.Text = Form1.ComboBox1.SelectedItem("I")
Dim valore As Double = Form1.TextBox1.Text
cn.Open()
sql = "SELECT RCOMMISS.Descrizionem,RCOMMISS.Forn,RCOMMISS.Descr izione,RCOMMISS.Cliente,RCOMMISS.SecondoCodice,COM MISS.Totalelistino,COMMISS.I FROM COMMISS INNER JOIN RCOMMISS ON COMMISS.NC = RCOMMISS.I WHERE RCOMMISS.Cliente = 6386 AND RCOMMISS.SecondoCodice = 'TESTATA' AND RCOMMISS.Forn='" & valore & "'"
ds = New DataSet("bb")
da = New OleDb.OleDbDataAdapter(sql, cn)
da.Fill(ds, "bb")
Dim dt As New DataTable
dt = ds.Tables("COMMISS", "RCOMMISS")
cn.Close()
Dim bs As New BindingSource
bs = New BindingSource()
bs.DataSource = ds
bs.DataMember = "bb"
DataGridView1.DataSource = bs ' ....E FINO A QUI FUNZIONA TUTTO ULTRAPERFETTAMENTE !!!! VENGONO ESATTAMENTE RESTITUITI TUTTI I RECORD PERFETTAMENTE FILTRATI !!!
Dim objRpt As New CrystalReport3
objRpt.SetDataSource(ds)
objRpt.SetDatabaseLogon("sa", "miapwd")
CrystalReportViewer1.ReportSource = objRpt
CrystalReportViewer1.Refresh()
....apro cristal e costruisco un COMANDO e vado a copiare pari-pari la mia stringa sql..
SORPRESA : FUNZIONA TUTTO TRANNE UNA COSA :
... NON VIENE ACCETTATA LA CLAUSULA ...... AND RCOMMISS.Forn='" & valore & "'
ho provato qualsiasi intervento a livello di sintassi ma NOTHING !!!
What ????
Grazie in anticipo per l'eventuale suggerimento
Albi
Rispondi quotando