请教高手！！！！！

Question

做安装的时候我如何能建库
我的数据库用的是sql server
有没有工具可以直接使用呀

Answer 1

自己做一个，用INSTALLSHIELD可以实现。
下面是我用VB做的一个，仅供参考：Private Function CreateDB() As Boolean   Dim enCourt As rdoEnvironment
   Dim cnCourt As rdoConnection
   Dim strDBName,strDatabase , strSource, strSQL As String
   
   strDBName = "Master"
   strSource = "DSN Name"
   If Not RegisterDB(strDBName, strSource) Then Exit Function
   
   On Error GoTo EroHandle
   
   strDBName = "your database name"
   Set enCourt = rdoEngine.rdoEnvironments(0)
   Set cnCourt = enCourt.OpenConnection( _
       dsName:=strSource, _
       Prompt:=rdDriverNoPrompt, _
       Connect:="UID=sa;PWD=;")
   
   strSQL = "CREATE DATABASE " & strDBName & " " & _
      "ON PRIMARY(NAME=" & strDatabase & "_Data," & _
      "FILENAME='D:\MSSQL7\DATA\" & strDatabase & ".mdf'," & _
      "SIZE=3MB," & _
      "MAXSIZE=8MB," & _
      "FILEGROWTH=20%) " & _
      "LOG ON (NAME=" & strDatabase & "_Log," & _
      "FILENAME='D:\MSSQL7\DATA\" & strDatabase & ".ldf'," & _
      "SIZE=1MB," & _
      "MAXSIZE=3MB," & _
      "FILEGROWTH=1MB)"
   cnCourt.Execute strSQL   Exit Function
   
EroHandle:
   MsgBox "无法创建数据库：" & strDBName & "！", vbInformation, "数据库向导"End FunctionPrivate Function RegisterDB(ByVal strDBName As String, ByVal strSource As String) As Boolean   Dim strAttri As String
   
   RegisterDB = False
   
   On Error GoTo EroHandle
   
   strAttri = "DESCRIPTION=" & _
      "SQL Server on server CYZ" & Chr$(13) & _
      "OEMTOANSI=NO" & Chr$(13) & _
      "SERVER=" & strSQLServer & Chr$(13) & _
      "Database=" & strDBName
'      & Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY"
   rdoEngine.rdoRegisterDataSource strSource, "SQL Server", True, strAttri
   RegisterDB = True
   
   Exit Function
   
EroHandle:
   MsgBox "无法注册ODBC(32位)数据源：" & strSource & "！", vbInformation, "数据库向导"
   
End Function

Answer 2

另外，可参看最近的帖子：http://www.csdn.net/expert/topic/876/876449.xml?temp=.6910669