form3.frm

ＶＢ实现成绩管理系统．包括成绩录入与试卷评审等．

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5100
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7965
   LinkTopic       =   "Form1"
   ScaleHeight     =   5100
   ScaleWidth      =   7965
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit




Private Sub Form_Load()

    Me.AutoRedraw = True
    
    Dim ADO As New clsADO '声明ADO对象
    
    ADO.SetSQLDBName "127.0.0.1", "cake", "sa", "123" '连接本机 数据库MyDB 用户名sa 密码123456
    
    If ADO.OpenDB() Then
        '成功打开数据库
       
       'ADO.ExecuteCommand "INSERT INTO Student VALUES('2004240010', 'Wayne', 21)"
        '执行 无返回的SQL语句
        
        Dim rs As Recordset '声明 Recordset对象
        
        Set rs = ADO.CreateRecordset("SELECT * FROM 班级信息表")
        '获取查询结果
        
       ' Print "记录数："; rs.RecordCount '在窗体输出 查询结果的记录条数
        
        While rs.EOF = False '如果EOF为真，则表示"游标"已经在最后一条记录后面。
            Print "-----------"
            Print "No:"; rs.Fields(0)
            Print "Name:"; rs.Fields(1)
            Print "Age:"; rs.Fields(2)
            Print "-----------"
            rs.MoveNext '使"游标"后移
        Wend
        
        'ADO.ExecuteCommand "DELETE FROM Student WHERE [Name] = 'Wayne'"
        
        ADO.CloseDB '关闭数据库
    Else
        Print "打开数据库失败"
    End If

End Sub