Crear base de datos SQL Server 2000 con ADO.

"Tomás" preguntó:

¿Se puede crear una base de datos en SQL Server 2000 con ADO?.

Hola, Tomás:

Mediante sentencias SQL puedes crearla perfectamente. Me imagino que en los
Libros en Pantalla habrá documentación y ejemplos.

Te dejo un ejemplo sólo para crear la base de datos:

Dim cnn As ADODB.Connection
Dim SQL As String

Set cnn = New ADODB.Connection
With cnn
.Provider = "SQLOLEDB.1"

.ConnectionString = "Data Source=NombreServidor;" & _
"Initial Catalog=;Integrated Security=SSPI"

' Para abrir la conexión, podemos omitir el parámetro
' Initial Catalog
.Open

' Si existe la base de datos, primero la eliminamos y
' después la creamos
'
SQL = "IF EXISTS (SELECT * FROM master..sysdatabases WHERE " & _
"Name ='Nombre_Base_Datos')" & _
"DROP DATABASE PRUEBA2 CREATE DATABASE Nombre_Base_Datos"

.Execute SQL
End With

Un saludo.

Enrique Martínez
[MS MVP - VB]

Gracias, después de mucho buscar me parece que el método es como sugieres,
con sentencias SQL.

Un saludo.

Tomás.

"Softjaen" escribió en el mensaje
news:

"Tomás" preguntó:
>
> ¿Se puede crear una base de datos en SQL Server 2000 con ADO?.
>

Hola, Tomás:

Mediante sentencias SQL puedes crearla perfectamente. Me imagino que en

los

Libros en Pantalla habrá documentación y ejemplos.

Te dejo un ejemplo sólo para crear la base de datos:

Dim cnn As ADODB.Connection
Dim SQL As String

Set cnn = New ADODB.Connection
With cnn
.Provider = "SQLOLEDB.1"

.ConnectionString = "Data Source=NombreServidor;" & _
"Initial Catalog=;Integrated Security=SSPI"

' Para abrir la conexión, podemos omitir el parámetro
' Initial Catalog
.Open

' Si existe la base de datos, primero la eliminamos y
' después la creamos
'
SQL = "IF EXISTS (SELECT * FROM master..sysdatabases WHERE " & _
"Name ='Nombre_Base_Datos')" & _
"DROP DATABASE PRUEBA2 CREATE DATABASE Nombre_Base_Datos"

.Execute SQL
End With

Un saludo.

Enrique Martínez
[MS MVP - VB]