在函数中创建数据库...

Question

Create Database .....查联机帮助。

Answer 1

你是要得到数据库的连接字符串吧?
Public Shared Function CreateDB(ByVal DBName As String) As SqlConnection
'如果是Windows验证方式
CreateDB="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=服务器名;Initial Catalog=" & DBName '如果是sql验证方式
CreateDB="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;Password=;Initial Catalog=;Data Source=服务器名;Initial Catalog=" & DBName End Function

Answer 2

不是，连接字符串有另外的函数，这个函数是创建数据库专用，创建数据库的SQL语句
非常的长，create database ..create table ....,这么放进函数里面恐怕不好
有没有什么好办法？

Answer 3

1：
打包生成脚本文件createDB.sql
2：
定义以下过程
Private Sub CreateDataBase(cnDataBase as connect,sqlFile As String)
Dim strSql As String, strTmp As String        
      Open sqlFile For Input As #1
      strSql = ""
      Do While Not EOF(1)
          Line Input #1, strTmp
          If UCase(strTmp) = "GO" Then
              cn.Execute strSql
              strSql = ""
          Else
              strSql = strSql & strTmp & vbCrLf
          End If
      Loop
      If strSql <> "" Then cnDataBase.Execute strSql
      Close #1
End Sub
注：cnDatabase 为你到服务器的连接
    sqlFile 为你的脚本文件（带路径）
3：
在你的程序开始时期运行以上过程
call createdatabase(cn,app.path+"\createDB.sql")

Answer 4

谢谢楼上的兄弟，如果我将已经建好的数据库导出project_Data.MDF,
project_Log.LDF，在用户点击创建数据库的时候，将其根据
Public Shared Function CreateDB(ByVal DBName As String) As SqlConnectionEnd Function
这个函数给定的名字创建一个与project一模一样的新数据库又该如何？