odbc通过ado对象连接.frm

这是别人的数据库课程设计

VERSION 5.00
Begin VB.Form ODBC通过ADO对象连接 
   Caption         =   "ODBC通过ADO对象连接"
   ClientHeight    =   1935
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4320
   LinkTopic       =   "Form1"
   ScaleHeight     =   1935
   ScaleWidth      =   4320
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdLast 
      Caption         =   "尾记录"
      Height          =   375
      Left            =   3195
      TabIndex        =   11
      Top             =   1395
      Width           =   915
   End
   Begin VB.CommandButton cmdNext 
      Caption         =   "下一条"
      Height          =   375
      Left            =   2205
      TabIndex        =   10
      Top             =   1395
      Width           =   915
   End
   Begin VB.CommandButton cmdPrevius 
      Caption         =   "上一条"
      Height          =   375
      Left            =   1170
      TabIndex        =   9
      Top             =   1395
      Width           =   915
   End
   Begin VB.CommandButton cmdFirst 
      Caption         =   "首记录"
      Height          =   375
      Left            =   180
      TabIndex        =   8
      Top             =   1395
      Width           =   915
   End
   Begin VB.TextBox txtPoint 
      DataField       =   "学分"
      DataSource      =   "Adodc1"
      Height          =   330
      Left            =   3105
      TabIndex        =   3
      Top             =   810
      Width           =   960
   End
   Begin VB.TextBox txtTeacher 
      DataField       =   "授课老师"
      DataSource      =   "Adodc1"
      Height          =   330
      Left            =   1035
      TabIndex        =   2
      Top             =   810
      Width           =   960
   End
   Begin VB.TextBox txtClassName 
      DataField       =   "课程名称"
      DataSource      =   "Adodc1"
      Height          =   330
      Left            =   3105
      TabIndex        =   1
      Top             =   225
      Width           =   960
   End
   Begin VB.TextBox txtNumber 
      DataField       =   "课程编号"
      DataSource      =   "Adodc1"
      Height          =   330
      Left            =   1080
      TabIndex        =   0
      Top             =   225
      Width           =   960
   End
   Begin VB.Label Label4 
      Caption         =   "学    分"
      Height          =   240
      Left            =   2250
      TabIndex        =   7
      Top             =   855
      Width           =   825
   End
   Begin VB.Label Label3 
      Caption         =   "授课老师"
      Height          =   240
      Left            =   180
      TabIndex        =   6
      Top             =   855
      Width           =   825
   End
   Begin VB.Label Label2 
      Caption         =   "课程名称"
      Height          =   195
      Left            =   2250
      TabIndex        =   5
      Top             =   270
      Width           =   825
   End
   Begin VB.Label Label1 
      Caption         =   "课程编号"
      Height          =   195
      Left            =   225
      TabIndex        =   4
      Top             =   270
      Width           =   825
   End
End
Attribute VB_Name = "ODBC通过ADO对象连接"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义两个ADO对象
Dim aCon As ADODB.Connection
Dim aRs As ADODB.Recordset
'定义一个子过程，功能是向文本框中添写记录
Private Sub fillRecord()
txtNumber.Text = aRs("课程编号")
txtClassName.Text = aRs("课程名称")
txtTeacher.Text = aRs("授课老师")
txtPoint.Text = aRs("学分")
End Sub

Private Sub cmdFirst_Click()
'返回记录集首记录
aRs.MoveFirst
'调用过程,添写记录
Call fillRecord

End Sub

Private Sub cmdLast_Click()
'返回记录集尾记录
aRs.MoveLast
Call fillRecord
End Sub
Private Sub cmdNext_Click()
'记录指针后移，如果到尾记录之后则移到尾记录
aRs.MoveNext
If aRs.EOF Then
    aRs.MoveLast
End If
Call fillRecord
End Sub

Private Sub cmdPrevius_Click()
'记录指针前移，如果到首记录之前则移到首记录
aRs.MovePrevious
If aRs.BOF Then
   aRs.MoveFirst
End If
Call fillRecord
End Sub

Private Sub Form_Load()
'建立数据连接
Set aCon = New ADODB.Connection
'使用ODBC方法连接
aCon.ConnectionString = "dsn=ODBC_MyDB;user id=sa;password="
aCon.Open
'获取记录集
Set aRs = New ADODB.Recordset
aRs.ActiveConnection = aCon
aRs.CursorType = adOpenDynamic
aRs.Source = "课程"
aRs.Open
Call fillRecord
End Sub