Prikazi cijelu temu 07.09.2016 22:38
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: On error resume next
PreuzmiIzvorni kôd (Visual Basic):
  1. Set cn = New ADODB.Connection
  2.      
  3.  
  4.  If ReadIniValue(App.path & "\METMG.ini", "Baza", "TipBaza") = 1 Then
  5.     ' My SQL server
  6.     cn.ConnectionString = "Driver={Mysql ODBC 5.1 Driver}; Server=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Server") & _
  7.                            ";port=3306; database=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "BazaDB") & _
  8.                            "; user=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "User") & _
  9.                            "; password=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Password") & "; option=3;"
  10.       DA = 1
  11.       NE = 0
  12.      '---------------------------------------------------------------------------------------
  13.  ElseIf ReadIniValue(App.path & "\METMG.ini", "Baza", "TipBaza") = 2 Then
  14.      '--------------------------  SHAPE SQL Server 2000 / 2005  so INI File  -----------------------------
  15.    
  16.     If ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Password") = "" Then Pass = ""
  17.     If ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Password") <> "" Then Pass = Enc.Decode64(ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Password"))
  18.      
  19.      cn.ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;Driver={SQL Server};Server=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Server") & _
  20.                            ";Database=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "BazaDB") & _
  21.                            ";Uid=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "User") & _
  22.                            ";Pwd=" & Pass & ";"
  23.       DA = 1
  24.       NE = 0
  25.      '---------------------------------------------------------------------------------------
  26.  ElseIf ReadIniValue(App.path & "\METMG.ini", "Baza", "TipBaza") = 3 Then
  27.      '--------------------------  SHAPE MsAccess -------------------------------------------
  28.     Baza = ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "PatekaBaza") & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "BazaDB") & ".mdb"
  29.      cn.ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Baza & ";"
  30.      '---------------------------------------------------------------------------------------
  31.      DA = True
  32.       NE = False
  33.  
  34.   End If
  35.  
  36.    cn.Open
  37. If cn.State = adStateOpen Then
  38.     Call Postavi_Parametri
  39.  
  40.     'frmLogin.Show
  41.    'frmManu.Show
  42.    frmTest.Show
  43.  ''  ActivateKeyboardLayout MKD, False
  44. End If
  45.  
  46. Main_Exit:
  47.    Exit Sub
  48.  
  49. Error_Main:
  50.  
  51. If Err <> 0 And Err <> -2147217843 And Err <> -2147467259 Then MsgBox Err & "  -->>>  " & Error(Err)
  52.  
  53. If Err = -2147217843 Then
  54.     Call MsgBox("problem so povrzuvajne na serverot ", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "info")
  55.     frmParametri.Show
  56.     Resume Main_Exit:
  57. End If
  58.  
  59. If Err = -2147467259 Then
  60.     Call MsgBox("bazata ne e povrzana ili ne posoi na serverot  ", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "info")
  61.     frmParametri.Show
  62.     Resume Main_Exit:
  63. End If