Gjoreski 07.06.2015 15:47
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.

zxz 07.06.2015 21:09
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.

zxz 07.06.2015 22:06
Predmet:Re: Cristal report Konekcija na Server

Jesil probao ovo:
CrystalReport.LogOnServer "crdb_odbc.dll", "<ODBC DSN Name>", "", "<Username>", "<Password>"

Gjoreski 08.06.2015 01:19
Predmet:Re: Cristal report Konekcija na Server

Probuvav nesto no ne mi odese

Gjoreski 08.06.2015 21:37
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

zxz 08.06.2015 23:07
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

Gjoreski 09.06.2015 10:25
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 kôd (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 kôd (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

zxz 09.06.2015 12:53
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?

Gjoreski 09.06.2015 13:23
Predmet:Re: Cristal report Konekcija na Server

Tocno taka promena na konekcija na raportot

Gjoreski 10.06.2015 10:08
Predmet:Re: Cristal report Konekcija na Server

Ova moe funkcionira , ke vidime vo praksa kako ke bidi