VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2355
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4275
   LinkTopic       =   "Form1"
   ScaleHeight     =   2355
   ScaleWidth      =   4275
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "瀏覽記錄"
      Enabled         =   0   'False
      Height          =   375
      Left            =   2160
      TabIndex        =   1
      Top             =   960
      Width           =   1695
   End
   Begin VB.CommandButton Command1 
      Caption         =   "創建數據庫"
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   960
      Width           =   1575
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    On Error GoTo DealError
    Dim objCon As Connection, strCn As String, strSQL As String
    Set objCon = New Connection     '創建連接數據庫服務器的Connection對象
    
    '建立與數據庫服務器的連接
    '用戶名sa密碼xuanxuan
    strCn = "Provider=SQLOLEDB.1;User ID=sa;PWD=xuanxuan;Data Source=(local)"
    objCon.ConnectionString = strCn
    objCon.Open
    
    
    
    
    '執行SQL語句創建數據庫
    strSQL = "CREATE DATABASE 實例2庫"
    objCon.Execute strSQL
    MsgBox "成功創建數據庫"
    objCon.Close
    
    
    
    
    
    '重新建立數據庫服務器連接，并連接到指定數據庫
    strCn = "Provider=SQLOLEDB.1;User ID=sa;PWD=xuanxuan;" & _
            "Data Source=(local);Initial Catalog=實例2庫"
    objCon.ConnectionString = strCn
    objCon.Open
    
    
    
    
    
    
    '執行SQL語句創建數據庫表對象
    strSQL = "CREATE TABLE 測試表( " & _
             "用戶名 varchar(13) not null primary key, " & _
             "口令 char(6) not null )"
    objCon.Execute strSQL
    MsgBox "成功創建數據庫表"
    
    
    
    
    
    
    '為新建的“測試表”表添加三條記錄
    strSQL = "INSERT 測試表 (用戶名,口令) " & _
             "VALUES ('Administrator',123456)"
    objCon.Execute strSQL
    strSQL = "INSERT 測試表 (用戶名,口令) " & _
             "VALUES ('Admin',135789)"
    objCon.Execute strSQL
    strSQL = "INSERT 測試表 (用戶名,口令) " & _
             "VALUES ('叮當',123321)"
    objCon.Execute strSQL
     MsgBox "成功為表添加了三條記錄"
     
     
     
     
     
     
     
    
    '關閉數據庫連接，釋放Connection對象
    objCon.Close
    Set objCon = Nothing
    
    '啟用瀏覽記錄按鈕
    Command2.Enabled = True
    Exit Sub
DealError:
    '顯示出錯信息
    MsgBox "數據庫創建過程出錯：" & Err.Description
End Sub

Private Sub Command2_Click()
    '顯示記錄瀏覽窗體
    Form2.Show
End Sub