Men forestiller mig at i stedet for at smide database udtrækkene i en celle i en tabel, vil jeg hellere bruge udtrækkene til at opbygge en Crystal Report.
Kan det lade sig gøre, eller er det helt tosset det her ? :)
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
ja, det er faktisk en god artikel som jeg HAR læst, men den forudsætter at jeg har en tabel eller view eller lignende i en DB som jeg kan smide i et DataSet og så derfra ligge det i CR.
Er det tosset at opbygge et view hver gang man vil lave en CR og bagefter slette viewet ?
Ok, det lyder meget fleksibelt, og i mit tilfælde vil det mest være data fra forskellige tabeller som jeg trækker ud med en DataReader.
Men hvordan sker overførslen til CR? Kan jeg f.eks. skabe et dataSet med en sql forespørgsel og smide den i CR, eller skal jeg hellere smide dataene ind i CR i en løkke,.eller ???
Kender ikke lige det problem, men umiddelbart lyder det ikke som om den kan se de properties du har sat i design mode. Prøv om du kan tilknytte rapporten på præcis samme måde, som de gør i eksemplet.
Jeg har selv brugt ovenstående artikel til at hygge lidt med CR (men fandt senere ud af deres licenssystem :o))og hvis du ikke kan få det til at virke, så skal jeg prøve at kigge lidt i gemmerne derhjemme når jeg kommer hjem i aften.
nu tror jeg den har kontakt, men nu viser den ikke engang felt navnene, men i det mindste viser den et område hvor der er plads til en rapport i stedet for bare et ikon.
I disse linjer : Dim myDS As New Dataset1() Dim MyDA As New SqlClient.SqlDataAdapter() MyDA.Fill(myDS, "stores")
Hmm...kan sgu ikke lige finde den rigtige CD (er lige flyttet og der er stadig masser af fyldte flyttekasser tilbage). Men hvis du eventuelt kan smide noget kode herind, så kigger jeg gerne på det.
Her er koden som skal trække data ud fra DB og smide dem i CR Viewer:
Sub BindReport()
Dim Connection As New SqlClient.SqlConnection("Data Source=INTRANET01; Initial Catalog=Inventory; Integrated Security=false; uid=albatros; pwd=albatros;") Dim MyCommand As New SqlClient.SqlCommand() MyCommand.Connection = Connection
MyCommand.CommandText = "SELECT dbo.Main.number, dbo.Models.Model, dbo.Main.Site, dbo.Main.UserID FROM dbo.Main INNER JOIN dbo.Models ON dbo.Main.ModelID = dbo.Models.ID WHERE number = 333"
MyCommand.CommandType = CommandType.Text Dim MyDA As New SqlClient.SqlDataAdapter() MyDA.SelectCommand = MyCommand Dim myDS As New Dataset1() MyDA.Fill(myDS, "Main") Dim oRpt As New CrystalReport1()
oRpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = oRpt End Sub
I mit dataset har jeg lagt min Main tabel og min Models tabel
Problemet med logon failed er jeg kommet ud over ved at sætte userId og Pwd ind i koden. ( det er et internt system jeg laver så det er i orden ).
Lige nu har jeg bare 2 problemer:
Det ene at jeg stadig ikke kan få den til at acceptere flere tabeller. Det andet at jeg ikke kan styre størrelsen af CrystalReportVieweren som jeg kan med andre kontroller. (f.eks.: STYLE = "LEFT: 67px; POSITION: absolute; TOP: 235px" ) Den opererer med nogle meget store marginer som jeg ikke kan tvinge den til at udelade.
Desværre, jeg havde selv problemer med den kæmpe venstremargen den sætter af - den benyttes vist til at kunne vise et indeks over de poster der er, hvis man har sat den til det i rapporten.
Prøv at undersøge på CR egen hjemmeside, der er Seagate der laver det. De har sikkert et forum eller to omkring emnet.
/askhoej
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.