高尔夫7的致命缺点:Data 数据库连接与查询

来源:百度文库 编辑:九乡新闻网 时间:2024/04/28 16:11:52
Option Explicit
Dim sql As String
Dim a1 As String Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
Text1.SetFocus
End Sub Private Sub cmdDel_Click()
If Data1.Recordset.BOF = False Then
Data1.Recordset.Delete
End If
Data1.Recordset.MovePreviousEnd Sub Private Sub cmdFind_Click()
a1 = InputBox("请输入号码!", "查找")
sql = "select * from StudentInfo  Where 学号 ='" & a1 & "'"
Data1.DatabaseName = "F:\工作\2011教学\软件资源\VB学生活动素材\数据库程序\StudentInfo(97).mdb"
Data1.RecordSource = sql
Data1.RefreshEnd Sub