Access VBA connection to test existence of SQL Server -


i have access application needs connect 1 of several possible sql servers (i.e., connect linked tables) , have list of possible sql server instance names. when application launches, needs go see of possible servers available. considering sluggishness of solutions using sqlbrowseconnect or netserverenum, i'm wondering if there clean , fast way 'ping' sql server based on name.

we use pass-through query, verifyconnection, opens small table.

the test alters connection , checks if can read table:

public function issqlserver( _     byval testnewconnection boolean, _     optional byval hostname string, _     optional byval database string, _     optional byval username string, _     optional byval password string, _     optional byref errnumber long) _     boolean      const cstrquery     string = "verifyconnection"      dim dbs             dao.database     dim qdp             dao.querydef     dim rst             dao.recordset      dim booconnected    boolean     dim strconnect      string     dim strconnectold   string     dim boocheck        boolean      set dbs = currentdb     set qdp = dbs.querydefs(cstrquery)      if hostname & database & username & password = ""         if testnewconnection = false             ' verify current connection.             boocheck = true         else             ' fail. no check needed.             ' new connection cannot checked empty parameters.         end if     else         strconnectold = qdp.connect         strconnect = connectionstring(hostname, database, username, password)         if strconnect <> strconnectold             if testnewconnection = false                 ' fail. no check needed.                 ' tables connected database.             else                 ' check new connection.                 qdp.connect = strconnect                 boocheck = true             end if         else             ' check current connection.             strconnectold = ""             boocheck = true         end if     end if      on error goto err_issqlserver      ' perform check of new connection or verify current connection.     if boocheck = true         set rst = qdp.openrecordset()         ' tried connect ...         if errnumber = 0             if not (rst.eof or rst.bof)                 ' success.                 booconnected = true             end if             rst.close         end if          if strconnectold <> ""             ' restore old connection parameters.             qdp.connect = strconnectold         end if     end if      set rst = nothing     set qdp = nothing     set dbs = nothing      issqlserver = booconnected  exit_issqlserver:     exit function  err_issqlserver:     ' return error.     errnumber = err.number     errormox "tilslutning af database"     ' resume able restore qdp.connect strconnectold.     resume next  end function

this way check complete route way single table.


-

Comments

Post a Comment

Popular posts from this blog

scala - 'wrong top statement declaration' when using slick in IntelliJ -

Image
i'm porting project scala 2.9 2.10, therefore have use slick instead of scalaquery. i'm using slick 2.1.0 since supports ms access. according this tutorial , upgrade guide changed robs object class , added val robs : why error message wrong top statement declaration , how rid of it? edit: i'm new scala... according this question seems can't put val outside of methods or classes, right? code above directly in packge. right approach slick then? should move code in class or trait? according this changed val robs = tablequery[robs] to object robs extends tablequery(new robs(_)) {} . no warnings or errors anymore. :)
Read more

c# - DevExpress.Wpf.Grid.InfiniteGridSizeException was unhandled -

Image
when using devexpress, see error: devexpress.wpf.grid.infinitegridsizeexception unhandled message="by default, infinite grid height not allowed since grid rows rendered , hence grid work slowly. fix issue, should place grid container give finite height grid, or should manually specify grid's height or maxheight. note can avoid exception setting gridcontrol.allowinfinitegridsize static property true, in case grid run slowly." the problem dxgrid has infinite height. to fix, set height non-infinite. snoop absolutely invaluable this: if "height" xaml element infinite (i.e. 0 or nan ), can set using one of following: option 1: height="{binding path=actualheight, relativesource={relativesource mode=findancestor, ancestortype=uielement}}" option 2: verticalalignment="stretch" option 3: height="auto" hint: use verticalalignment="stretch" if child of grid <rowdefinition height=
Read more

PySide and Qt Properties: Connecting signals from Python to QML -

i trying run simple pyside appliccation design made in qml. call function in qml python in separated thread. i have following qml view: import qt 4.7 rectangle { visible: true width: 100; height: 100 color: "lightgrey" text { id: datestr objectname: "datestr" x: 10 y: 10 text: "init text" font.pixelsize: 12 function updatedata(text) { datestr.text = qstr(text) console.log("you said: " + text) } } } here application: some imports.... #!/usr/bin/python import sys import time pyside import qtdeclarative, qtcore pyside.qtgui import qapplication pyside.qtdeclarative import qdeclarativeview the qthread worker.... #worker thread class worker(qtcore.qthread): updateprogress = qtcore.signal(int) def __init__(self, child): qtcore.qthread.__init__(self) self.child = child def run(self):
Read more