Creating Sql Server DataBase
Creating Sql Server DataBase
API Declarations
Dim MyServer As New SQLServer
Dim DataBase As New SQLDMO.DataBase
Dim DBFileData As New SQLDMO.DBFile
Dim LogFile As New SQLDMO.LogFile
Dim StrSuccess As String
Dim User As New SQLDMO.User
Rate Creating Sql Server DataBase
(1(1 Vote))
If Trim(TxtServer.Text) <> "" And Trim(TxTUser.Text) <> "" Then
DataBase.Name = "USMte" 'Ur DataBase Name
DBFileData.Name = "USMte"
DBFileData.PhysicalName = "c:\USMte.mdf"
DBFileData.PrimaryFile = True
DBFileData.FileGrowthType = SQLDMOGrowth_MB
DBFileData.FileGrowth = 1
DataBase.FileGroups("PRIMARY").DBFiles.Add DBFileData
LogFile.Name = "USMteLog"
LogFile.PhysicalName = "c:\USMtelog.ldf"
DataBase.TransactionLog.LogFiles.Add LogFile
MyServer.Databases.Add DataBase
MyServer.Disconnect
MsgBox "Created"
End If
End Sub
Creating Sql Server DataBase Comments
No comments yet — be the first to post one!
Post a Comment