Cambiar Base de Datos

"JReyes" preguntó:

Como puedo verificar despues que este conectado desde VB2005
si existe una base de datos (x) en SQL Server 2000 y si esta
existe cambiarla por la que esta en la conexion y si no existe
crearla o atacharla.

Hola:

Para saber si existe o no una base de datos en una instancia de SQL Server
2000, puedes obtener un objeto SqlDataReader, ejecutando la siguiente
consulta T-SQL:

Dim cmd As New SqlCommand
Dim dr As SqlDataReader

With cmd
' Configuramos el comando
'
.CommandText = "SELECT * FROM INFORMATION_SCHEMA.SCHEMATA " & _
"WHERE CATALOG_NAME = N'NombreBaseDatos"
.CommandType = CommandType.Text
.Connection = objSqlConnection

' Ejecutamos la consulta T-SQL
dr = .ExecuteReader()

dr.Read()
If dr.HasRows = True Then
MessageBox.Show("Nombre de la base de datos: " & dr.GetString(0))
Else
MessageBox.Show("No existe la base de datos")
End If

dr.Close()
End With

Por supuesto, deberás de abrir previamente un objeto SqlConnection.

Si la base de datos no existe, y deseas crearla, deberás de ejecutar una
consulta CREATE DATABASE, cuya sintaxis la puedes obtener consultando los
Libros en Pantalla de SQL Server. Y si quieres adjuntar la base de datos, el
otro día ya te indiqué el código que necesitabas ejecutar.

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.