Question

求创建SQL（2000）数据库的VB代码

本人想用VB创建一个数据库，查看了一些相关的书籍和网上的资料，却总是不成功，现求哪位老师能教给我一段完整的VB代码，并且给出注释，十二万分地感谢！！

Answer 1

创建SQL Server 2000数据库
Dim ADOcn As New ADODB.Connection
Dim Sqls As String
'连接到master数据库，创建新数据库
ADOcn.ConnectionString = "driver={SQL Server};server=;uid=sa;pwd=;database=master"
ADOcn.Open
'DISK INIT NAME='我的数据库'，是数据库名称，显示在企业管理器中的名称
'PHYSNAME='d:\我的数据库_Data.mdf'，是数据库文件名
'SIZE=5120，数据库初始大小
Sqls = "DISK INIT NAME='我的数据库',PHYSNAME='d:\我的数据库_Data.mdf',SIZE=5120" '在硬盘上建立数据库文件
ADOcn.Execute Sqls
Sqls = "CREATE DATABASE 我的数据库 on 我的数据库=5120" '创建数据库
ADOcn.Execute Sqls
ADOcn.Close

Answer 2

打开连接的代码：
strConectString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & UserName & _ ";Password=" & strDbPass & ";Initial Catalog=" & strDbName & ";Data Source=" & strServerName '//WSID
With CnMdson
.ConnectionString = strConectString
.CommandTimeout = 30
.Open
End With