test.frm

来自「ＶＢ实现成绩管理系统．包括成绩录入与试卷评审等．」· FRM 代码 · 共 59 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   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