怎样通过vb程序创建SQLSERVER数据库，请各位大虾帮忙。急！！！！！！！

Question

apollo(阿波罗):怎么用？最好有代码

Answer 1

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 2

Private Function CreateDB(dbname As String) As Boolean
'生成数据库
Dim myAc As New ADODB.Connection
Dim myAm As New ADODB.Command
'dbname 数据库名称
    CreateDB = True
    dbname = "NBUF_" & txtAccCode & "_" & txtYear.Text
    On Error GoTo err_proc
    With myAc
        .ConnectionString = "driver=SQL Server;server=" & computerName & ";uid=nbufsoft;pwd=nbufsoft;database=master"
        .CommandTimeout = 30
        .Open
    End With
    With myAm
        .ActiveConnection = myAc
        .CommandText = "create database " & dbname & " on (name=" & dbname & "_data" & ", filename='" _
            & txtAccPath.Text & dbname & ".mdf')  log on (name=" & dbname & "_log" & ",filename='" & txtAccPath.Text & dbname & ".ldf')"
        .Execute
    End With
    myAc.Close
    Exit Function
err_proc:
    MsgBox "建立数据库失败，原因为：" & Err.Description, vbExclamation, CW
    With myAc
        If .State = adStateOpen Then .Close
    End With
    CreateDB = False
End Function

Answer 3

哇，其他地方转了一下就连源码都有了，快啊
TO progame()上班也可以在网上的，哈哈

Answer 4

hehe ~~~我在看他们送的 程序员  没发现我喜欢的东西~~  ：（