CLI Reference Guide

ODBCLink/SE Reference Manual Using ODBCLink/SE With ODBC Applications
ODBCLink/SE
©M.B. Foster Associates Limited 1995-2000 51
rc = SQLError(henv, hdbc, SQL_NULL_HSTMT, SQLState, NativeError, error_str,
256, outlen)sDSNConnect = Space(256)
If rc <> SQL_NO_DATA_FOUND Then
msg = Left(error_str, outlen)
If gl_SQLStatement <> "" Then
msg = msg + " (" + gl_SQLStatement + ")"
End If
MsgBox msg
End If
End Sub
9. Sub Freeconnect()
rc = SQLFreeConnect(hdbc)
If rc <> SQL_SUCCESS Then
Call GetError
End If
End Sub
Sub FreeEnv()
rc = SQLFreeEnv(henv)
If rc <> SQL_SUCCESS Then
Call GetError
End If
End Sub
Sub Freestmt()
rc = SQLFreeStmt(hstmt, SQL_DROP)
If rc <> SQL_SUCCESS Then
Call GetError
End If
End Sub
Sub Disconnect()
rc = SQLDisconnect(hdbc)
If rc <> SQL_SUCCESS Then
Call GetError
End If
rc = SQLFreeConnect(hdbc)
If rc <> SQL_SUCCESS Then
MsgBox ("SQLFreeConnect failed rc=" + Str(rc))
Exit Sub
End If
rc = SQLFreeEnv(henv)