nikako da kreiram report!
Imam kod:
Dim da As New SqlDataAdapter()
Dim com As New SqlCommand()
Dim cnn As New SqlConnection(...)
Dim fd As CrystalDecisions.CrystalReports.Engine.Table
Dim lognafd As CrystalDecisions.Shared.TableLogOnInfo
Dim rd As New ReportDocument()
cnn.Open()
com.Connection = cnn
com.CommandText = "select * from findok where mat_br = " & txt.Text & " "
com.CommandType = CommandType.Text
com.ExecuteNonQuery()
da.SelectCommand = com
da.Fill(ds, "tabela")
rd.Load("../crystalReport1.rpt")
rd.SetDataSource(ds)
For Each fd In rd.Database.Tables
lognafd = fd.LogOnInfo
With lognafd.ConnectionInfo
.ServerName = "...."
.UserID = ""
.Password = ""
.DatabaseName = "pro"
End With
fd.ApplyLogOnInfo(lognafd)
Next fd
CrystalReportViewer1.ReportSource = rd
ali, kada pokrenem prog. nista report - prazan .Jel moze neko da mi kaze sta nije dobro, da li treba jos nesto da uradim.