Crear base de datos SQL Server 2000 con ADO.

09/09/2003 - 07:25 por Tomás | Informe spam
Hola a todos.

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

Estoy buscando información y no consigo encontrar si se puede crear desde
VC++ con ADO para poder crear la base de datos, tablas, procedimientos y
vistas.

Si alguien conoce algún sitio para buscar información o conoce el método
estaría muy agradecido.

Un saludo.

Tomás.

Preguntas similare

Leer las respuestas

#1 Softjaen
09/09/2003 - 15:38 | Informe spam
"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]
Respuesta Responder a este mensaje
#2 Tomás
09/09/2003 - 18:07 | Informe spam
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]



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida