怎么利用VB在SQL 7.0里创建一个新的库？

Question

Public Function Creat_Database(Paths As String, Files As String) As Boolean
'在SQLserver 中建立一个库
Dim SQL$
SQL = ""
SQL = SQL & "CREATE DATABASE " & Files
SQL = SQL & " ON "
SQL = SQL & "( NAME = '" & Files & "_dat',"
SQL = SQL & "  FILENAME = '" & Paths & Files & "_dat.jdt',"
SQL = SQL & "  SIZE = 10MB,"
SQL = SQL & "  MAXSIZE = 50MB,"
SQL = SQL & "  FILEGROWTH = 5MB )"
SQL = SQL & "LOG ON"
SQL = SQL & "( NAME = 'Sales_log',"
SQL = SQL & "  FILENAME = '" & Paths & Files & "_log.jdt',"
SQL = SQL & "  SIZE = 5MB,"
SQL = SQL & "  MAXSIZE = 25MB,"
SQL = SQL & "  FILEGROWTH = 5MB )"
'On Error GoTo Err1
    Cm.Execute SQL
    Creat_Database = True
Exit Function
Err1:
    Creat_Database = False
End Function

Answer 1

使用SQL DMO可以轻松搞定。    Dim goSQLServer As New SQLDMO.SQLServer    With goSQLServer
        .LoginSecure = False
        .AutoReConnect = False
        .Connect Trim(cboServers.Text), Trim(txtUserID.Text), Trim(txtPassword.Text)
    End With    Dim oDatabase As New SQLDMO.Database
    Dim oDBFile As New SQLDMO.DBFile
    Dim oDBLog As New SQLDMO.LogFile
    
    oDatabase.Name = sDBName
    
    oDBFile.Name = sDBName
    oDBFile.PhysicalName = goSQLServer.Registry.SQLDataRoot & "\DATA\" & sDBName & ".mdf"
    oDBFile.PrimaryFile = True
    oDBFile.Size = 2                  'Default Size is 2 MB
    oDBFile.FileGrowthType = SQLDMOGrowth_MB
    oDBFile.FileGrowth = 1
    
    oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFile
    
    oDBLog.Name = sDBName & "Log"
    oDBLog.PhysicalName = goSQLServer.Registry.SQLDataRoot & "\DATA\" & sDBName & ".ldf"
    oDBLog.Size = 2
    oDatabase.TransactionLog.LogFiles.Add oDBLog
    
    goSQLServer.Databases.Add oDatabase

Answer 2

'**************如何用vb代碼建立sql數據庫************
'    Dim cn As Connection
'    Dim str As String
'    str = "CREATE DATABASE Sales " & _
'          "ON (NAME = Sales_dat," & _
'          "FILENAME = 'D:\saledat.mdf'," & _
'          "SIZE = 1MB,MAXSIZE = 500MB,FILEGROWTH = 10% )" & _
'          "LOG ON ( NAME = 'Sales_log'," & _
'          "FILENAME = 'D:\salelog.ldf'," & _
'          "SIZE = 1MB,MAXSIZE = 500MB,FILEGROWTH = 50MB )"
'    Set cn = New Connection
'    With cn
'        .ConnectionString = "Provider=SQLOLEDB.1;Data Source=aa\aa;User ID=sa;Password=aa"
'        .Open
'        .Execute str
'    End With
'    Set cn = Nothing

Answer 3

我这里有很多VB源代码，肯定有你需要的，会对你的学习有很多帮助，欢迎定购
每张15元 www.wlxf.com