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