sql database backup using windev code

This code explains about the how to take a backup file for sql server using windev code.
//declare
sMyQry is string
ConnectionNum  is int
getBackDir is string="C:\"
sparamClientDatabase is string // Database name to take a backup file
//Procedure for connecting sql
PROCEDURE SQLMasterConnect()
ConnectionNum =SQLConnect(Connection.gSourceName,Connection.gsUser,Connection.gsPassword,Connection.gsDatabaseName,"OLEDB",hOledbSQLServer)
IF ConnectionNum <> 0 THEN
RESULT True
ELSE
RESULT False
END

//Save DB
IF Dialogue("Are you sure want to take a backup file ?") = yesTHEN
HourGlass(True)
IF SQLProc.SQLMasterConnect()=True THEN
sMyQry= [
SaveDb  
]
IF SQLExec(sMyQry+sparamClientDatabase+","+"'"+getBackDir+"'","QRY_SAVEDB") = True THEN
HourGlass(False)
Info("database backup is success")
ELSE
Info("database backup is not success")
END
SQLClose("QRY_SAVEDB")
END
SQL_Disconnect()
END


//** Save Db is strored procedure  In SQL SERVER**//
Create Procedure [dbo].[SaveDb]
@dbname nvarchar(50),
@directoryBackup nvarchar(max)
as
declare @Sql varchar(max)

SELECT @Sql ='BACKUP DATABASE ' +@dbname+ ' TO  DISK = '''+ @directoryBackup +'\'+@dbname+'_'+replace(convert(varchar, GetDate(), 120),':','')+'.bak'' WITH NOFORMAT, NOINIT,
NAME = '''+@dbname+ '-Full Database Backup'',SKIP, NOREWIND, NOUNLOAD,STATS = 10'
EXECUTE(@Sql)

Create a New Database in Sql server 2005 using windev code

Design a page in windev form like this

write a stored  procedure for newdatabase

Create  procedure [dbo].[addDatabase]
@DBNAME nvarchar(50)
as
declare @Sql varchar(max)
SELECT @Sql ='CREATE DATABASE ' + @DBNAME
EXECUTE(@Sql)

Code in Windev

//declare

ConnectionNum  is int

sMyQry is string

ConnectionNum  =SQLConnect(EDT_Server,EDT_User,EDT_Password,EDT_DatabaseName,"OLEDB",hOledbSQLServer)

IF ConnectionNum <> 0 THEN

sMyQry = [
addDatabase  
]
// Run the query
ResExec=SQLExec(sMyQry+"'"+EDT_DatabaseName+"'","QRY_CREATION")
IF ResExec = False THEN
// Error while running the query. Retrieve information about the query run
Error(sql.messageError())
END
SQLClose("QRY_CREATION")
SQLDisconnect()

Here "addDatabase" is strored procedure from sql server

Windev