Prikazi cijelu temu 09.06.2015 11:25
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


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