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):Private Sub cmdIzvestaj_Click()
With crIzvestai
.Reset
.Connect = cnr
.StoredProcParam(0) = rsPrometi.Fields("ID_Promet")
.Formulas(0) = "Naslov=" & "'" & "ÄÎÍÅÑÅÍ ÏÐÎÌÅÒ" & "'"
.Formulas(1) = "DokumentBroj=" & "'" & labDoumentBroj.Caption & "'"
.Formulas(2) = "Data=" & "'" & txtData.Text & "'"
.Formulas(3) = "Korisnik=" & "'" & cboKorisnik.Text & "'"
.Formulas(4) = "PoDokument=" & "'" & txtPoDokument.Text & "'"
.ReportFileName = App.path & "\Reports\" & "rptDonesenPromet.rpt"
.Destination = crptToWindow
.WindowLeft = 0
.WindowTop = 0
.WindowWidth = Screen.Width
.WindowHeight = Screen.Height
.WindowState = crptMaximized
.Action = 1
End With
End Sub
i ovaj kod go imam vo main modulot na aplikacijata
PreuzmiIzvorni kôd (Visual Basic):Public cnr As String ' Konekcija za Cristal report
Public Function Postavi_Parametri()
Server = ReadIniValue(App.path & "\Setup.ini", "ServerSetup", "Server")
Baza = ReadIniValue(App.path & "\Setup.ini", "ServerSetup", "BazaDB")
User = ReadIniValue(App.path & "\Setup.ini", "ServerSetup", "User")
Password = ReadIniValue(App.path & "\Setup.ini", "ServerSetup", "Password")
cnr = "ODBC;DSN=" & Baza & ";UID=" & User & ";PWD=" & Password & ";SERVER=" & Server
'===============================================================================================
' Kreirajne i izmena na DNS
Open App.path & "\Reports\daReports.dsn" For Output Shared As #1
Print #1, "[ODBC]"
Print #1, "DRIVER=SQL Server"
Print #1, "UID=" & User
Print #1, "Network=DBMSSOCN"
Print #1, "DATABASE=" & Baza
Print #1, "WSID=KOCO-PC"
Print #1, "APP=Crystal Reports"
Print #1, "SERVER=" & Server
Close #1
'===============================================================================================
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