This ASP.NET script is for creating SQL Server Databases online and remotely through a web browser. The database is dropped if it allready exists, a new database is created on SQL Server.
VB Code: (you may need to modify the database file path: C:\Program Files\Microsoft SQL Server\MSSQL\data\ according to your SQL Server''s intallation path on your machine)
Imports System.Data
Imports System.Data.SqlClient
Namespace SQLControlDBCreator
Public Class SQLDBCreator
Public Sub Run(ByRef QuString As String, ByRef CnString As String)
Dim myConnection As SqlConnection
myConnection = New SqlConnection(CnString)
Try
Dim CreateCreateCommand As SqlCommand
Dim DropCreateCommand As SqlCommand
CreateCreateCommand = New SqlCommand("CREATE DATABASE [" & QuString & "] ON (NAME = N''" & QuString & "_Data'', FILENAME = N''C:\Program Files\Microsoft SQL Server\MSSQL\data\" & QuString & "_Data.MDF'', SIZE = 1, FILEGROWTH = 10%) LOG ON (NAME = N''" & QuString & "_Log'', FILENAME = N''C:\Program Files\Microsoft SQL Server\MSSQL\data\" & QuString & "_Log.LDF'', SIZE = 1, FILEGROWTH = 10%) COLLATE SQL_Latin1_General_CP1_CI_AS", myConnection)
DropCreateCommand = new SqlCommand("IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N''" & QuString & "'') DROP DATABASE [" & QuString & "]", myConnection)
myConnection.Open()
DropCreateCommand.ExecuteNonQuery()
CreateCreateCommand.ExecuteNonQuery()
Finally
myConnection.Close()
End Try
End Sub
End Class
End Namespace
<%@ Page Language="VB" Debug="true" Src="SQLDBCreator.vb"%>
<%@ Import Namespace="SQLControlDBCreator" %>
<SCRIPT Runat="Server">
Private Const CharChars = "_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Private Function CharsOnly(ByVal strChars As String)
Dim i As Integer
Dim j As Integer
Dim wx As String
Dim ag As String
Dim yx As String
For i = 1 To Len(strChars)
For j = 1 To Len(CharChars)
wx = Mid(strChars, i, 1)
ag = Mid(CharChars, j, 1)
If wx = ag Then
yx = yx & wx
End If
Next
Next
CharsOnly = yx
End Function
Protected Sub Page_Load(Src As object, E As EventArgs)
Dim ServerIP As String = Request.Params("ServerIP")
Dim ServerAdmin As String = Request.Params("ServerAdmin")
Dim ServerPassword As String = Request.Params("ServerPassword")
Dim QueryString As String = CharsOnly(Request.Params("DBName"))
On Error Resume Next
If QueryString <> "" And ServerIP <> "" And ServerAdmin <> "" And ServerPassword <> "" Then
Dim ConnString As String = "server=" & ServerIP & "; user id=" & ServerAdmin & "; password=" & ServerPassword & "; Database=master;"
Dim mySQLDBCreator As SQLDBCreator
mySQLDBCreator = new SQLDBCreator()
mySQLDBCreator.Run(QueryString, ConnString)
If Err.Number = 0 Then
output.InnerHtml = ("Database Successfully created.")
Else
output.InnerHtml = (Err.Description)
End If
Else
output.InnerHtml = ("Connect to your SQL Server")
End If
End Sub
</SCRIPT>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>SQL Server Database Creator</TITLE>
<STYLE TYPE="text/css">
BODY, TD, XMP, INPUT { FONT-FAMILY : Verdana, Arial, Tahoma; FONT-SIZE : 10pt; FONT-WEIGHT : bold }
</STYLE>
</HEAD>
<BODY>
<BR>
<DIV ALIGN="center">
<FONT SIZE="+1">Create New Database</FONT>
<BR>
<BR>
<BR>
<XMP ID="output" RUNAT="Server"/>
<FORM RUNAT="Server">
<TABLE ALIGN="center" WIDTH="60%" CELLSPACING="1" CELLPADDING="2" BORDER="0">
<TR>
<TD>Server IP:</TD>
<TD><ASP:TextBox ID="ServerIP" SIZE="23" RUNAT="server"/></TD>
</TR>
<TR>
<TD>User ID:</TD>
<TD><ASP:TextBox ID="ServerAdmin" SIZE="23" VALUE="sa" RUNAT="server"/></TD>
</TR>
<TR>
<TD>Password:</TD>
<TD><ASP:TextBox ID="ServerPassword" SIZE="23" RUNAT="server"/></TD>
</TR>
<TR>
<TD>Database Name:</TD>
<TD><ASP:TextBox ID="DBName" SIZE="23" RUNAT="server"/></TD>
</TR>
<TR>
<TD> </TD>
<TD><ASP:Button Text="Create Database" RUNAT="Server"/></TD>
</TR>
</TABLE>
</FORM>
</DIV>
</BODY>
</HTML>