ODBCLink/SE Reference Manual | Using ODBCLink/SE With ODBC Applications |
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)
ODBCLink/SE |
|
©M.B. Foster Associates Limited | 51 |