1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
Public Class Form1
Dim str As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(ConString)
Dim dbfile As String = New String("C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\MyDatabaseData.mdf")
Dim logfile As String = New String("C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\MyDatabaseLog.ldf")
If (System.IO.File.Exists(dbfile)) Then
MessageBox.Show("Database Exists, dropping it")
Try
myConn.Open()
Dim dropit As SqlCommand = New System.Data.SqlClient.SqlCommand("DROP DATABASE MyDatabase;", myConn)
dropit.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.ToString())
Finally
If (myConn.State = ConnectionState.Open) Then
myConn.Close()
End If
End Try
End If
str = "CREATE DATABASE MyDatabase ON PRIMARY " & _
"(NAME = MyDatabase_Data, " & _
" FILENAME = '" & dbfile & "', " & _
" SIZE = 3MB, " & _
" MAXSIZE = 10MB, " & _
" FILEGROWTH = 10%) " & _
" LOG ON " & _
"(NAME = MyDatabase_Log, " & _
" FILENAME = '" & logfile & "', " & _
" SIZE = 1MB, " & _
" MAXSIZE = 5MB, " & _
" FILEGROWTH = 10%) "
Dim myCommand As SqlCommand = New SqlCommand(str, myConn)
Try
myConn.Open()
myCommand.ExecuteNonQuery()
MessageBox.Show("Database is created successfully", _
"MyProgram", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.ToString())
Finally
If (myConn.State = ConnectionState.Open) Then
myConn.Close()
End If
End Try
End sub |
Partager