vb建立sql数据库

Dim objGz As Recordset
Dim objCn As Connection
Dim strPath As String
Dim strName As String
Dim strNameMdf As String
Dim strNameLog As String
Dim pathNameMdf As String
Dim pathNameLog As String
Private Declare Function GetTickCount Lib "kernel32" () As Long
  '创建数据库及表例子
Private Sub MakeNewMdf()
              Set objCn = New Connection
               strPath = App.Path
               strName = "xxz" & Format(Date, "yyyymmdd")
              strNameLog = strName & "_log"
              strNameMdf = strName & "_data"
              pathNameMdf = strPath & "\" & strNameMdf & ".mdf"
              pathNameLog = strPath & "\" & strNameLog & ".ldf"
    With objCn
        .Provider = "SQLOLEDB"
        .ConnectionString = "User Id =sa;pwd=editcopy;data source=CHINA-0563340EC;initial Catalog=master"        '.ConnectionString = "User Id =sa;" & strPwd & ";data source=(local);initial Catalog=信息站"
        .Open
    End With
'objCn.Execute "create database aa on primary(name =aa_data,filename=" & Chr(34) & "d:\aa_data.mdf" & Chr(34) & ",size=10mb,maxsize=20mb,filegrowth=2)log on(name =aa_log,filename=" & Chr(34) & "d:\aa_log.ldf" & Chr(34) & ",size=10mb,maxsize=20mb,filegrowth=2)"    
          '创建数据库
        objCn.Execute "create database 信息站 on primary(name =" & strNameMdf & ",filename=" & Chr(34) & "" & pathNameMdf & ".mdf" & Chr(34) & ",size=10mb,maxsize=20mb,filegrowth=2)log on(name =" & strNameLog & ",filename=" & Chr(34) & "" & pathNameLog & ".ldf" & Chr(34) & ",size=10mb,maxsize=20mb,filegrowth=2)"
       
          '打开刚刚创建的数据库
        objCn.DefaultDatabase = "信息站"
        
objCn.Execute "CREATE TABLE [dbo].[三违处罚] (" & _
    "[id] [int] IDENTITY (1, 1) NOT NULL ," & _
    "[执罚人编号] [int] NOT NULL ," & _
    "[三违人姓名] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[单位] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[工种] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[地点] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[罚款日期] [datetime] NOT NULL ," & _
    "[性质] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[罚金] [int] NOT NULL ," & _
    "[原因] [varchar] (500) COLLATE Chinese_PRC_CI_AS NOT NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[临时表] (" & _
    "[姓名] [char] (8) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[单位] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[职务] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[入井日期] [datetime] NULL ," & _
    "[入井时间] [datetime] NULL ," & _
    "[升井日期] [datetime] NULL ," & _
    "[升井时间] [datetime] NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[临时表记录] (" & _
    "[inouttime] [datetime] NOT NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[人员信息] (" & _
    "[id] [int] IDENTITY (1, 1) NOT NULL ," & _
    "[姓名] [char] (8) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[性别] [char] (2) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[年龄] [tinyint] NULL ," & _
    "[单位] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[职务] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[入井天数] [int] NULL ," & _
    "[甲班] [int] NULL ," & _
    "[乙班] [int] NULL ," & _
    "[丙班] [int] NULL ," & _
    "[罚款人次] [int] NULL ," & _
    "[罚款金额] [int] NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[升井超时人员] (" & _
    "[姓名] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[单位] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[职务] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[入井时间] [datetime] NULL ," & _
    "[升井时间] [datetime] NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[升入井] (" & _
    "[id] [int] IDENTITY (1, 1) NOT NULL ," & _
    "[人员编号] [int] NOT NULL ," & _
    "[入井时间] [datetime] NOT NULL ," & _
    "[升井时间] [datetime] NOT NULL ," & _
    "[入井日期] [datetime] NOT NULL ," & _
    "[升井日期] [datetime] NOT NULL ," & _
    "[安全信息卡] [int] NOT NULL ," & _
    "[班种] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[入井时长] [nchar] (10) COLLATE Chinese_PRC_CI_AS NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[单位] (" & _
    "[单位名称] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[安全信息卡] (" & _
    "[id] [int] IDENTITY (1, 1) NOT NULL ," & _
    "[人员编号] [int] NOT NULL ," & _
    "[入井编号] [int] NOT NULL ," & _
    "[入井地点] [char] (4) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[所经路线] [varchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[隐患类别] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[隐患等级] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[责任人1] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[责任人2] [char] (8) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[隐患内容] [varchar] (3000) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[整改时间] [datetime] NOT NULL ," & _
    "[完成情况] [char] (6) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[隐患地点] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[安全统计] (" & _
    "[日期] [datetime] NULL ," & _
    "[隐患条数] [int] NULL ," & _
    "[A级] [int] NULL ," & _
    "[B级] [int] NULL ," & _
    "[C级] [int] NULL ," & _
    "[现场整改] [int] NULL ," & _
    "[限期整改] [int] NULL ," & _
    "[三违人数] [int] NULL ," & _
    "[罚款金额] [int] NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[工种] (" & _
    "[工种] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[用户] (" & _
    "[姓名] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[口令] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[类型] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[质量处罚] (" & _
    "[id] [int] IDENTITY (1, 1) NOT NULL ," & _
    "[执罚人编号] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[责任人] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[单位] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[职务] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[处罚时间] [datetime] NOT NULL ," & _
    "[地点] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[原因] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[罚金] [int] NOT NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[隐患排查] (" & _
    "[名称] [char] (8) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[主查单位] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[A级] [int] NULL ," & _
    "[B级] [int] NULL ," & _
    "[C级] [int] NULL ," & _
    "[现场整改] [int] NULL ," & _
    "[限期整改] [int] NULL ," & _
    "[合计] [int] NULL ," & _
    "[备注] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[领导] (" & _
    "[id] [int] NULL ," & _
    "[姓名] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL " & _
") ON [PRIMARY]"objCn.Execute "CREATE TABLE [dbo].[领导考核] (" & _
    "[姓名] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL ," & _
    "[入井日期] [datetime] NULL ," & _
    "[入井时间] [datetime] NULL ," & _
    "[升井日期] [datetime] NULL ," & _
    "[升井时间] [datetime] NULL ," & _
    "[班种] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ," & _
    "[查处三违人次] [int] NULL ," & _
    "[罚款金额] [int] NULL ," & _
    "[查处隐患] [int] NULL ," & _
    "[备注] [char] (10) COLLATE Chinese_PRC_CI_AS NULL " & _
") ON [PRIMARY]"......
          objCn.Close
          Set objCn = Nothing
End Sub
    
  Private Sub Pause(ByVal sSec As Long)
          Dim StartSec     As Long
          StartSec = GetTickCount()
          While (GetTickCount() - StartSec) / 1000 < sSec
              DoEvents
          Wend
  End Sub
Private Sub Form_Load()
wait.Show
Pause (1)
MakeNewMdf
Unload Me
End Sub