Buenas, estoy creando una aplicación en VB.NET 2008 y necesito que al pulsar un botón se cree una base de datos. Estoy siguiendo un tutorial de otra web. Estoy usando este código, modifiqué bastante el que salía en el tuto y se me quedó así:
No me funciona el código, le doy al botón pero se queda pillado, no se que es lo que está mal, no se si es el servidor que puse que me parece que es uno localhost que es lo que quiero... He buscado en muchísimas webs, en español y en inglés y ya no sé que hacer.
CitarDim str As String
Dim myConn As SqlConnection = New SqlConnection("Server=127.0.0.1;" & _
"uid=sa;pwd=;database=master")
str = "CREATE DATABASE MyDatabase ON PRIMARY " & _
"(NAME = MyDatabase_Data, " & _
" FILENAME = 'C:\Archivos de programa\AllDataBase Manager\Bases de Datos\'" & nombreBD & "'\MyDatabaseData.mdf', " & _
" SIZE = 2MB, " & _
" MAXSIZE = 10MB, " & _
" FILEGROWTH = 10%) " & _
" LOG ON " & _
"(NAME = MyDatabase_Log, " & _
" FILENAME = 'C:\Archivos de programa\AllDataBase Manager\Bases de Datos\'" & nombreBD & "'\ MyDatabaseLog.ldf', " & _
" SIZE = 1MB, " & _
" MAXSIZE = 5MB, " & _
" FILEGROWTH = 10%) "
Dim myCommand As SqlCommand = New SqlCommand(str, myConn)
Try
myConn.Open()
myCommand.ExecuteNonQuery()
MessageBox.Show(" B ase de Datos creada correctamente", _
"MyProgram", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.ToString())
LabelInfoBD.Text = "Error al crear la base de datos"
Finally
If (myConn.State = ConnectionState.Open) Then
myConn.Close()
End If
End Try
LabelInfoBD.Refresh()
End If
No me funciona el código, le doy al botón pero se queda pillado, no se que es lo que está mal, no se si es el servidor que puse que me parece que es uno localhost que es lo que quiero... He buscado en muchísimas webs, en español y en inglés y ya no sé que hacer.