Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Create SQL Server database from VFP Code
Message
From
08/11/2006 16:14:35
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Client/server
Title:
Create SQL Server database from VFP Code
Environment versions
Visual FoxPro:
VFP 9 SP1
Database:
MS SQL Server
Miscellaneous
Thread ID:
01168252
Message ID:
01168252
Views:
73
Hi,

I've got some code that gets the available SQL servers and now I want to allow the user to create a database on a selected server. So I've got the name of the new database and some code that connects to the server. How do I now create the database? I tried:
TEXT TO m.lcSQL NOSHOW TEXTMERGE
USE [master]
GO
CREATE DATABASE [<<m.lcNewDatabase>>] ON  PRIMARY
( NAME = N'<<m.lcNewDatabase>>', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\<<m.lcNewDatabase>>.mdf' , SIZE = 603456KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB )
 LOG ON
( NAME = N'<<m.lcNewDatabase>>_log', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\<<m.lcNewDatabase>>_log.ldf' , SIZE = 1219712KB , MAXSIZE = 2048GB , FILEGROWTH = 10%)
 COLLATE SQL_Latin1_General_CP1_CI_AS
GO
EXEC dbo.sp_dbcmptlevel @dbname=N'<<m.lcNewDatabase>>', @new_cmptlevel=90
GO
IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))beginEXEC [<<m.lcNewDatabase>>].[dbo].[sp_fulltext_database] @action = 'enable'end
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET ANSI_NULL_DEFAULT OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET ANSI_NULLS OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET ANSI_PADDING OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET ANSI_WARNINGS OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET ARITHABORT OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET AUTO_CLOSE OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET AUTO_CREATE_STATISTICS ON
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET AUTO_SHRINK OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET AUTO_UPDATE_STATISTICS ON
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET CURSOR_CLOSE_ON_COMMIT OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET CURSOR_DEFAULT  GLOBAL
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET CONCAT_NULL_YIELDS_NULL OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET NUMERIC_ROUNDABORT OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET QUOTED_IDENTIFIER OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET RECURSIVE_TRIGGERS OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET  DISABLE_BROKER
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET AUTO_UPDATE_STATISTICS_ASYNC OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET DATE_CORRELATION_OPTIMIZATION OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET TRUSTWORTHY OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET ALLOW_SNAPSHOT_ISOLATION OFF
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET PARAMETERIZATION SIMPLE
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET  READ_WRITE
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET RECOVERY FULL
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET  MULTI_USER
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET PAGE_VERIFY CHECKSUM
GO
ALTER DATABASE [<<m.lcNewDatabase>>] SET DB_CHAINING OFF
ENDTEXT
llSuccess = SQLEXEC(m.lnHandle,m.lcSQL)>0
WAIT WINDOW TRANSFORM(m.llSuccess)
which is basically copied from the CREATE script for the database in SQL Server Management Studio.

Obviously there are some problems in that I have the hard coded path to the files. Is there a way that I can find out where the default path for files are on a particular server?

However, I am getting llSuccess to be .F. all the time. Am I trying to do too much? Or is this possible? Anybody willing to show me an example of what they have done?

Thanks,
Frank.

Frank Cazabon
Samaan Systems Ltd.
www.samaansystems.com
Next
Reply
Map
View

Click here to load this message in the networking platform