Code to create a database:

String sMsg sPath
integer iDBExist iError
handle hoWorkspace
Get phoWorkspace of (oWorkspace(oApplication(self))) To hoWorkspace
Get psSQLDataPath of hoWorkspace to sPath

//Create database if not exist
SQL_START_TRANSACTION_STMT
SQL_SET_STMT    To (" if not exists (select * from master.dbo.sysdatabases where name = '" + sDataBase + "')")
SQL_APPEND_STMT To ("    CREATE DATABASE "  + sDatabase)

SQL_PREPARE_STMT
SQL_EXECUTE_STMT

SQL_SET_STMT     To ("Select Count(*) from master.dbo.sysdatabases where name = '" + sDataBase + "'")
SQL_PREPARE_STMT
SQL_EXECUTE_STMT
SQL_FETCH_NEXT_ROW Into iDBExist
SQL_COMMIT_STMT

Tags: Embedded SQL

This entry was posted on Monday, February 18th, 2008 at 4:19 pm and is filed under Code Examples. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.