• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Creating Sql Server DataBase

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
• 2
• 3
• 4
• 5

(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