如何用VB在SQLServer中创建数据库和数据库里的表

Question

《能否使用ADO生成SQL7.0的表和字段》
http://go1.163.com/~askpro/msg19/qa02.htm

Answer 1

用VB6.0+SQLDMO可实现你的功能。引用“工程/引用/Microsoft SQLDMO Object Library”这个对象。

Answer 2

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'用ADO连接远程的SQL SERVER 服务器:
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa(或你的id); password=你的password;Data Source=你的 SQL server的名字"
cn.Open
创建数据库:
sqlstr="create database 数据库名 & " on 你的设备名=你想要的数据库容量 log on 你的设备名=你想要的数据库日志大小"
cn.execute sqlstr
创建表:
sqlstr="create table 表名(字段名,字段类型,是否可空,默认值...)"
cn.execute sqlstr 

Answer 3

多谢大家，经过启发，又查了书籍，发现有三种方法，
1.ADO
2.ADOX
3.SQLDMOado方法如下，试验可以成功
    sServer = "***.***.***.***"
    sLoginID = "sa"
    sPassword = ""
    sDatabase = "test"
    
    cn.ConnectionString = "Provider=SQLOLEDB.1;DRIVER=SQL Server;Persist Security Info=False" & _
        ";Data Source=" & sServer & _
        ";UID=" & sLoginID & _
        ";PWD=" & sPassword & _
        ";DATABASE=" & sDatabase & _
        ";Network Library=dbmssocn;"
  sqlstr = "create database test22 on  primary(name=test22_data,filename='d:\mssql7\data\test22.mdf', size=10mb,maxsize=15mb,filegrowth=20%)" & _
  " log on (name=test22_log,filename='d:\mssql7\data\test22.ldf', size=3mb,maxsize=5mb,filegrowth=1mb)"
  cn.Open
  cn.Execute sqlstr