Código
Dim cmdSql As New SqlConnection("Server=" & NombreInstancia & "; " & "database=master; integrated security=yes") 'La orden T-SQL para crear la tabla Dim NameData As String = "CREATE DATABASE " & Nombre & " FILENAME = '" & RutaDataBase & "\" & Nombre & ".mdf'" Dim cmd As New SqlCommand(NameData, cmdSql) Dim state As Boolean Try 'Abrimos la conexión y ejecutamos el comando cmdSql.Open() cmd.ExecuteNonQuery() MsgBox("Base de datos creada correctamente", MsgBoxStyle.Exclamation, "Mensaje") state = True Catch ex As Exception MsgBox(ex.Message & vbNewLine & "Error al crear la base", MsgBoxStyle.OkOnly & MsgBoxStyle.Critical, "Error mensaje") state = False Finally 'Por si se produce un error, 'comprobar si la conexión está abierta If cmdSql.State = ConnectionState.Open Then cmdSql.Close() End If End Try
La verdad no estoy seguro de filename, pero deseo crearla en cierto sitio...
De ante mano muchas gracias por la ayuda...