Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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.
' Client Data: Dim cnnClient As ADODB.Connection Dim sClientConnect As String Dim strClientSQL As String Dim rstClient As ADODB.Recordset ' SQL Data to be updated: Dim strSql As String Dim cmdUpdate As ADODB.Command Dim sSqlConnect As String ' Client side setup Set cnnClient = New ADODB.Connection sClientConnect = "(Some successful yet proprietary ODBC connection string here)" cnnClient.ConnectionString = sClientConnect strClientSQL = "Select * from ClientView" rstClient.Open strClientSQL, cnnClient, adOpenDynamic, adLockReadOnly ' SQL Data to be updated: Set cmdUpdate = New ADODB.Command sSqlConnect = "(Successful ODBC connection string here)" cmdUpdate.ActiveConnection = sSqlConnect ' Scroll through client data & update the SQL data: rstClient.MoveFirst Do strSql = "Update SqlTable Set Address = '" & rstClient.Fields("Address") & "' WHERE ClientID = '" & rstClient.Fields("CustNo") & "'" cmdUpdate.CommandText = strSql Loop While Not rstClient.EOF
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.