Jump to content

Help needed


rahuroy
 Share

Recommended Posts

Hi Manadar,

Small help needed to complete my script

I am writing script for installation of application. Before starting installing i have to verify existence of database and if it exists then i have to drop it.Below is snippet of code where i am connecting to server and running query.But after querying , how to verify if database exists already? Please provide some suggestions.Thanks in advance.

; $fAuthMode - Authorization mode (0 = Windows Logon, 1 = SQL) (default = 0)

OnAutoItExitRegister("_Exit")

Func _Exit()

MsgBox(0,"@ExitCode",@exitCode)

EndFunc

Global $Ignore, $Ini, $Installer, $Pid,$GUID,$squery,$result,$fAuthMode,$xnn,$ynn,$query

$Ini = @ScriptDir & "\Install.ini"

Global $username = IniRead($INI, "EMSettings", "IS_NET_API_LOGON_USERNAME", "")

Global $password = IniRead($INI, "EMSettings", "IS_NET_API_LOGON_PASSWORD", "")

Global $sqlserver = IniRead($INI, "EMSettings", "IS_SQLSERVER_SERVER", "")

Global $sqlusername = IniRead($INI, "EMSettings", "sqlloginname", "")

Global $sqlpwd = IniRead($INI, "EMSettings", "sqlpassword", "")

Global $emdbname = IniRead($INI, "EMSettings", "IS_SQLSERVER_DB", "")

Global $fAuthMode = IniRead($INI, "EMSettings", "AuthMode", "") ; $fAuthMode - Authorization mode (0 = Windows Logon, 1 = SQL) (default = 0)

Global $sQuery="select * from master.dbo.sysdatabases where name =' & $emdbname & '"

If $fAuthMode=0 Then

$xnn="Provider=SQLOLEDB;Data Source= " & $sqlserver & ";Trusted_Connection=Yes;"

$sqlCon = ObjCreate("ADODB.Connection")

$sqlCon.Open($xnn)

if @error Then

MsgBox(0, "ERROR", "Failed to connect to the database")

Exit

Else

MsgBox(0, "Success!", "Connection to database successful!")

EndIf

$query=_SQLQuery($sqlCon,$sQuery)

If $query=1 Then $sqlCon.Execute("DROP DATABASE " & $emdbname)

else

$ynn="Provider=sqloledb;Data Source=" & $sqlserver & ";Network Library=DBMSSOCN;User ID=" & $sqlusername &";Pwd=" & $sqlpwd & ";"

$sqlCon = ObjCreate("ADODB.Connection")

$sqlCon.Open($ynn)

if @error Then

MsgBox(0, "ERROR", "Failed to connect to the database")

Exit

Else

MsgBox(0, "Success!", "Connection to database successful!")

EndIf

$query=_SQLQuery($sqlCon,$sQuery)

MsgBox(0,"",$query)

If $query=1 Then $sqlCon.Execute("DROP DATABASE " & $emdbname)

EndIf

Func _SQLQuery($sqlCon, $sQuery)

If IsObj($sqlCon) Then Return $sqlCon.Execute($sQuery)

Return

EndFunc

Link to comment
Share on other sites

Hello rahuroy,

after the "DROP DATABASE" you could just end the connection and try reconnecing to it. If it fails then your DB is no longer existant.

:)

Regards,

Hannes

;)

Regards,Hannes[spoiler]If you can't convince them, confuse them![/spoiler]
Link to comment
Share on other sites

Just two other hints:

Use headlines that are more specific then "Help Needed"

Don't address topics directly to Forum members, use PM for this. People tend to ignore when they don't feel addressed.

:)

Regards,

Hannes

;)

Regards,Hannes[spoiler]If you can't convince them, confuse them![/spoiler]
Link to comment
Share on other sites

Don't address topics directly to Forum members, use PM for this.

I personally wouldn't recommend PM'ing them either. :) As mentioned in the past, having code in the Public domain gives new users the ability to learn. Edited by guinness

UDF List:

 
_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_ArrayFilter/_ArrayReduce_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 22/04/2018

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...