Centar za edukaciju-BiH


Stranice (3):1,2,3

#1 07.06.2015 15:47
Gjoreski Na mrezi
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Cristal report Konekcija na Server
Imam nekolku raporti praveni co Cristal Report 8.5 koi preki OLEDB konekcija se konektirani na SQLServer a vo programot gi koristam preku Cristal32.OCX.
Prasajneto mi e kako preku Cristal32.OCX da ja smenam konekcijata na reportite.
↑  ↓

#2 07.06.2015 21:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Cristal report Konekcija na Server
Uf moram ga ponovo instalisat jer ga nemam.
Neznam ima li ga ko drugi?

Sutra ga instalisem pa probam.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 07.06.2015 22:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Cristal report Konekcija na Server
Jesil probao ovo:
CrystalReport.LogOnServer "crdb_odbc.dll", "<ODBC DSN Name>", "", "<Username>", "<Password>"
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 08.06.2015 01:19
Gjoreski Na mrezi
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Cristal report Konekcija na Server
Probuvav nesto no ne mi odese
↑  ↓

#5 08.06.2015 21:37
Gjoreski Na mrezi
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Cristal report Konekcija na Server
Resio sam ovo ali mislim da nije dobro resjnje.
Ako ima neko bolje resejne neka stavi tu a ja cu svoje da objasnim malo kasnije jel je malo komplikovanije.
Pozdrav
↑  ↓

#6 08.06.2015 23:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Cristal report Konekcija na Server
Evo instalisao sam i isprobao pa mi nije jasno gdje si zapeo.
Redosled mog rada:
Napravio sam konekciju:
ControlPanel--->Odbc32 i nova konekcija te na SQl i dao joj ime Kristal.
Podigao da pravim izvještaj novi odabrao odbc konekciju i odabrao kristal te napravio izvjestaj.

Sada VB
Nova app. vb
Dodao ocx Srystl32.ocx te na formu dodao kontrolu koju sam nazvao CrystalReport

Dodao jos jedan komandni taster pod imenom Command1
Kod ispod njega
Private Sub Command1_Click()

With CrystalReport
.ReportFileName = GetAppPath() & "report2.rpt"
.SQLQuery = ("SELECT * FROM Agregati WHERE Redoslijed=2")
.Password = ""
.Destination = crptToWindow
.Action = 1 ' 1 = "Run the Report"
End With

End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 09.06.2015 10:25
Gjoreski Na mrezi
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Cristal report Konekcija na Server
Kako da ja zamenis taa odbc konekcija so druga na reportot?
Na pr:
Imame server koj se vika GJORESKI\SQLEXPRESS i server koj se vika 192.25.200.2\Komercija mene mi treba na reportot da go zamenam edniot server so drugiot.
Jas go resiv vaka:
Napraviv ODBC DSN i go staviv vo isti direktorium so raportite.
Na reportite ja smenav konekcijata da ne bide OLEDB tuku da bide preku DSN
na comandot go imam ovaj kod:
PreuzmiIzvorni kd (Visual Basic):
  1. Private Sub cmdIzvestaj_Click()
  2.  
  3.     With crIzvestai
  4.    
  5.         .Reset
  6.         .Connect = cnr
  7.         .StoredProcParam(0) = rsPrometi.Fields("ID_Promet")
  8.         .Formulas(0) = "Naslov=" & "'" & " " & "'"
  9.         .Formulas(1) = "DokumentBroj=" & "'" & labDoumentBroj.Caption & "'"
  10.         .Formulas(2) = "Data=" & "'" & txtData.Text & "'"
  11.         .Formulas(3) = "Korisnik=" & "'" & cboKorisnik.Text & "'"
  12.         .Formulas(4) = "PoDokument=" & "'" & txtPoDokument.Text & "'"
  13.         .ReportFileName = App.path & "\Reports\" & "rptDonesenPromet.rpt"
  14.      
  15.         .Destination = crptToWindow
  16.         .WindowLeft = 0
  17.         .WindowTop = 0
  18.         .WindowWidth = Screen.Width
  19.         .WindowHeight = Screen.Height
  20.         .WindowState = crptMaximized
  21.         .Action = 1
  22.     End With
  23.  
  24. End Sub

i ovaj kod go imam vo main modulot na aplikacijata

PreuzmiIzvorni kd (Visual Basic):
  1. Public cnr As String                         ' Konekcija za Cristal report
  2. Public Function Postavi_Parametri()
  3.  
  4.  
  5.   Server = ReadIniValue(App.path & "\Setup.ini", "ServerSetup", "Server")
  6.   Baza = ReadIniValue(App.path & "\Setup.ini", "ServerSetup", "BazaDB")
  7.   User = ReadIniValue(App.path & "\Setup.ini", "ServerSetup", "User")
  8.   Password = ReadIniValue(App.path & "\Setup.ini", "ServerSetup", "Password")
  9.   cnr = "ODBC;DSN=" & Baza & ";UID=" & User & ";PWD=" & Password & ";SERVER=" & Server
  10.        
  11.  
  12.  '===============================================================================================
  13. ' Kreirajne i izmena na DNS
  14.  Open App.path & "\Reports\daReports.dsn" For Output Shared As #1
  15.   Print #1, "[ODBC]"
  16.   Print #1, "DRIVER=SQL Server"
  17.   Print #1, "UID=" & User
  18.   Print #1, "Network=DBMSSOCN"
  19.   Print #1, "DATABASE=" & Baza
  20.   Print #1, "WSID=KOCO-PC"
  21.   Print #1, "APP=Crystal Reports"
  22.   Print #1, "SERVER=" & Server
  23.   Close #1
  24.   '===============================================================================================
  25.    
  26.        
  27.        
  28.        
  29.  
  30. End Function

Celta mi bese da napravam da vozat reportite da se koristat na serveror na koj e prikacen programot

ima so ADO poelegantno resenie no ne mozis da gi koristis Stor Procedurite ,a mene toa mi treba bidejki site izvestai mi se napraveni so stor proceduri
↑  ↓

#8 09.06.2015 12:53
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Cristal report Konekcija na Server
Citat:
Imame server koj se vika GJORESKI\SQLEXPRESS i server koj se vika 192.25.200.2\Komercija mene mi treba na reportot da go zamenam edniot server so drugiot.

Da vidim jesam li te razumio.

Znaci ti hoces da na 1 report konektujes se na 2 servera zavisno od potrebe.
Odnosno da mijenjas server na reportu a time i konekciju pri pokretanju reporta.

Jesam li to?
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 09.06.2015 13:23
Gjoreski Na mrezi
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Cristal report Konekcija na Server
Tocno taka promena na konekcija na raportot
↑  ↓

#10 09.06.2015 22:29
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Cristal report Konekcija na Server
Ufa ja ne uspjedoh nikako.
Moram to malo bolje pogledati.
Ako sta nadjem javim.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (3):1,2,3


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 43 am.