Create SQL Server database in VB 6.0 2

[JTS1]

I know how to create an Access database from within VB.

Is there a way to create a new SQL database from within VB?

Any sample code?

Thanks!

 

[fredericofonseca]

maybe

CREATE DATABASE [TestDB] ON PRIMARY
(NAME = N'TestDB_Data',
FILENAME = N'D:\SQLServer2000\MSSQL\data\TestDB_Data.MDF',
SIZE = 1,
FILEGROWTH = 10%)
LOG ON
(NAME = N'TestDB_Log',
FILENAME = N'D:\SQLServer2000\MSSQL\data\TestDB_Log.LDF' ,
SIZE = 1,
FILEGROWTH = 10%)

Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com

 

[bombdropVB]

Look at using the SQLDMO object model

 

[bombdropVB]

try something along these line, make sure you refereance the SQLDMO object model

  Dim db As Database
    Dim sql As SQLDMO.SQLServer
       
    Set sql = New SQLDMO.SQLServer
    Set bd = New Database
    sql.Connect "SERVERNAME", "sa", ""
    db.Name = "Bombdrop_test_123"
   sql.Databases.Add db