Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Function RefreshAppTables() As Boolean Dim db As DAO.Database Dim rs As DAO.Recordset Dim strConnection As String strConnection = "DRIVER=SQL Server;SERVER=192.168.0.25;DATABASE=MyDB;UID=MyUse;PWD=MYPassword" Set db = CurrentDb Set rs = db.OpenRecordset("tblAppTables") DoCmd.SetWarnings False DoCmd.Hourglass True rs.MoveFirst While Not rs.EOF On Error Resume Next DoCmd.DeleteObject acTable, rs("LocalName") On Error GoTo 0 DoCmd.TransferDatabase acLink, "ODBC", "ODBC;" & strConnection, acTable, rs("SQLName"), rs("LocalName"), False, True rs.MoveNext Wend MsgBox "All Tables Refreshed" DoCmd.SetWarnings True DoCmd.Hourglass False End Function
|MS Access VBA How To Decompress a Gzip Response From a HTTP Request||4||34|
|Checking for column changes SQL 2014||4||24|
|SQL - Ordering Supervisor Hierarchy||2||14|
|How to get last 5 mins records from getdate() in sql?||2||15|