请教vb如何用代码创建SQL数据库

Question

vb如何用代码创建SQL数据库

Answer 1

引用ADO组件
dim rs as new adodb.recordset
dim DbStr as string
dbstr="IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'AAA') " & _
       "DROP DATABASE [AAA] " & _
       "CREATE DATABASE [AAA]  ON (NAME = N'AAA_Data',  " & _
       "FILENAME = N'C:\Program Files\Microsoft SQL  " & _                   "Server\MSSQL$WWW\data\AAA_Data.MDF' , "& _ 
"                SIZE = 1, FILEGROWTH = 10%) LOG ON (NAME = N'AAA_Log', " & _
 "                FILENAME = N'C:\Program Files\Microsoft SQL "& _
"Server\MSSQL$WWW\data\AAA_Log.LDF' , 
                SIZE = 1, FILEGROWTH = 10%)"
rs.open dbstr,"Driver={SQL Server};UID=SA;PWD=;DATABASE=MASTER"
这样就OK了。
N'C:\Program Files\Microsoft SQL  " & _                   "Server\MSSQL$WWW\data\AAA_Data.MDF' 是MDF文件在上文的位置及文件名LOG同然。

Answer 2

Private Sub Form_Load()
'‘**************如何用vb代碼建立sql數據庫************
    Dim cn As Connection
    Dim Rs As New ADODB.Recordset
    Dim str As String
    str = "CREATE DATABASE Sales " & _
          "ON (NAME = Sales_dat," & _
          "FILENAME = 'D:\saledat.mdf'," & _
          "SIZE = 1MB,MAXSIZE = 5MB,FILEGROWTH = 10% )" & _
          "LOG ON ( NAME = 'Sales_log'," & _
          "FILENAME = 'D:\salelog.ldf'," & _
          "SIZE = 1MB,MAXSIZE = 5MB,FILEGROWTH = 5MB )"
    Set cn = New Connection
    With cn
        .ConnectionString = "Provider=SQLOLEDB.1;Data Source=pmserver;User ID=sa;Password=sa"
        .Open
    End With
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from dbo.sysdatabases where name='sales'", cn, adOpenDynamic, adLockReadOnly
    If Rs.RecordCount = 0 Then
        cn.Execute str
    End If
    Set cn = Nothing
End Sub