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...





Autor




En línea


