请问如何在VB内调用脚本，建立MS SQL SERVER 2000 数据库及其中的所有表？

Question

建议将原数据库备份出来，再用用“RESTORE DATABASE”的方法建立数据库，比执行脚本来得方便。
在vb中定义 adodc.connention打开数据库，定义 adodc.common 执行SQL 语句，strSQL = "RESTORE DATABASE ……"
dim cnn as new adodc.connention
dim cmm as new adodc.commoncnn.open strConnentionString
set cmm.ActiveConnention = cnn
cmm.CommandTex = strSQL
cmm.Excute
……

Answer 1

必须用ADOX才能建立，详细情况自己去去看吧，有示例

Answer 2

public function ececute(byval sql as string)as adodb.recordset...
conn="provider=sqloledb;data source=127.0.0.1;use id=sa;password=;
   initial catalog=库名;"
...
txtsql="select * from INFORMATION_SCHEMA.TABLES"
set mrc=execute(txtsql)