Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Create SQL Server database from VFP Code
Message
 
To
08/11/2006 16:14:35
General information
Forum:
Visual FoxPro
Category:
Client/server
Environment versions
Visual FoxPro:
VFP 9 SP1
Database:
MS SQL Server
Miscellaneous
Thread ID:
01168252
Message ID:
01168261
Views:
16
Hi Frank,
You can replace
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
with
CREATE DATABASE [<<m.lcNewDatabase>>] COLLATE SQL_Latin1_General_CP1_CI_AS
HTH

>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,
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
Previous
Reply
Map
View

Click here to load this message in the networking platform