用vb如何编程创建sql Server数据库

Question

用odbc api创建sql数据库如何写sql语句
用dmo 如何引用Microsoft Windows Common Control 5.0
而不是部件中的Microsoft Windows Common Control 5.0

Answer 1

Sql2000:
先用‘企业管理器’生成整个数据库的脚本文件（.Sql），然后在程序里用Shell外部程序Osql来生成数据库。
  Dim Rc As Integer
  Dim str As String
  str = "osql -i Db.sql -U sa -S 127.0.0.1 -P Password"
  Rc = Shell(str, 0)

Answer 2

'创建数据库
    SQL = "CREATE DATABASE " & txtDataBaseName.Text
    Conn.Execute SQL