odbcconnection error handle

[jmendes65]

Hi

I already search the forum and in google but I cannot find any way to handle with the network error messages when i tried to update my table. It will work well if I have connection to the server.

The use "On error goto exitOnerror" is not working. The odbc error message still appears.

Dim Conn As String

Conn = "ODBC;DRIVER=SQL Server;" & _
"SERVER=<server>;" & _
"UID=<user>;" & _
"PWD=<pass>;" & _
"APP=Microsoft Office 2010;" & _
"WSID=<Host>;" & _
"DATABASE=<database>"

With ActiveWorkbook.Connections("SQLCommand").OdbcConnection
.BackgroundQuery = True
.CommandText = Sheets("SQLString").Range("A2").Value
.CommandType = xlCmdSql
.Connection = Conn
.RefreshOnFileOpen = False
.SavePassword = True
.SourceConnectionFile = ""
.SourceDataFile = ""
.ServerCredentialsMethod = xlCredentialsMethodIntegrated
.AlwaysUseConnectionFile = False
End With
With ActiveWorkbook.Connections("SQLCommand")
.Name = "SQLCommand"
.Description = ""
End With


' ---------------------------------
' --------- REFRESH ODBC ----------
' ---------------------------------

ActiveWorkbook.Connections("SQLCommand").Refresh
Application.ScreenUpdating = True

I appreciate any help in advance.

Thank you.
Jose

[hulpeloos]

can you please provide the exact error code as it looks like your code is OK
error code's table : http://msdn.microsoft.com/en-us/libr...sql.80%29.aspx

[jmendes65]

Thanks for you reply.

Error message:

Connection failed:
SQLState '01000'
SQL Server Error: 53
[Microsoft][ODBC][SQL Server Driver][DBNETLIB]ConnectionOpen(Connect())
Connection failed:
SQLState: '08001'
SQL Server Error: 17
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server does not exist or access denied

The idea is not to fix the problem but to show with a friendly message what to do,i.e.,
msgbox("Please connect to the internet")

[hulpeloos]

ah ok in that case the GoTo i used in below exampel works fine

Please Login or Register  to view this content.

[jmendes65]

I did that and I still receive the error same error message. After the error message appears the message with "sorry there was an issue".

Thank you.