Check whether an ODBC entry exists: Difference between revisions

From NSIS Wiki
Jump to navigationJump to search
m (Added category links.)
m (Reverted edits by 200.208.233.130 to last version by ConversionBot)
 
(2 intermediate revisions by 2 users not shown)
Line 1: Line 1:
{|align=right
{{PageAuthor|preisl}}
|<small>Author: [[{{ns:2}}:preisl|preisl]] ([[{{ns:3}}:preisl|talk]], [[{{ns:-1}}:Contributions/preisl|contrib]])</small>
 
|}
<br style="clear:both;">
== The Function ==
== The Function ==
<highlight-nsis>
<highlight-nsis>
Line 56: Line 54:
</highlight-nsis>
</highlight-nsis>


[[{{ns:14}}:Database Functions]]
[[Category:Database Functions]]

Latest revision as of 22:30, 4 December 2008

Author: preisl (talk, contrib)


The Function

;
; Check whether an ODBC entry exists or not
;
;  Input: Name of the ODBC entry
; Output: TRUE, FALSE
;
; Usage
;
;    Push "MyODBCEntry"
;    Call ODBCEntryExists
;    Pop "$1"
;    MessageBox MB_OK|MB_ICONINFORMATION "ODBC entry 'MyODBCEntry' exists: $1"
;
 
!macro ODBCEntryExistsMacro
 
  ; Clear all errors at the beginning
  ClearErrors
  ; Pop the name of the ODBC entry from the stack
  Exch $R0
 
  IfErrors InvalidParameter CheckODBCEntry
  InvalidParameter:
    MessageBox MB_OK|MB_ICONEXCLAMATION "ODBCEntryExists: Please push the name of the ODBC entry first."
    StrCpy $R0 "FALSE"
    Goto Done
  CheckODBCEntry:
    ClearErrors
    ReadRegStr $R0 HKEY_LOCAL_MACHINE "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources" "$R0"
    IfErrors NotFound Found
    NotFound:
      StrCpy $R0 "FALSE"
      Goto Done
    Found:
      StrCpy $R0 "TRUE"
      Goto Done
  Done:
 
  Exch $R0
 
!macroend
 
Function ODBCEntryExists
  !insertmacro ODBCEntryExistsMacro
FunctionEnd
 
Function un.ODBCEntryExists
  !insertmacro ODBCEntryExistsMacro
FunctionEnd
Retrieved from "https://nsis.sourceforge.io/mediawiki/index.php?title=Check_whether_an_ODBC_entry_exists&oldid=16440"