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