Creating a SQL Database

Picture of Mertech Mertech : Feb 18, 2008 4:19:00 PM

Databases

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

Why Migrate from Btrieve to PostgreSQL and other Relational Databases?

Riaz Merchant: Oct 28, 2024 6:12:41 AM

Introduction Many independent software vendors (ISV) and corporate users still rely on applications that use a category of database collective called...