Prikazi cijelu temu 07.09.2016 13:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: On error resume next
PreuzmiIzvorni kôd (Visual Basic):
  1. Function KonSQL() As Boolean
  2.     Dim Kon As ADODB.Connection
  3.     Dim KonStr As String
  4.  
  5. On Error Resume Next
  6.     KonStr = "Provider=SQLOLEDB;Data Source=ImeServeraILIIP;" & _
  7.                   "Initial Catalog=IMeBaze;" & _
  8.                   "Integrated Security=SSPI;"
  9.     Set Kon = New ADODB.Connection
  10.     Kon.Open KonStr
  11.     If Err.Number <> 0 Then
  12.     Err.Clear
  13.     On Error GoTo 0
  14.     KonSQL = False
  15.     Else
  16.     KonSQL = True
  17.     End If
  18. End Function

U tvom slucaju var Kon vjerovatno treba biti javna pa je stavi na vrh nekog modula i proglasi javnom ili napravi klasu.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.