2016数据库Access应用(主编范萍-中央广播电视大学出版社) VBA程序对数据库的操作.docVIP

⑵ Sub过程 ? Sub过程的定义与Function过程的定义类似，它们的重要区别在于，Sub过程没有返回值，不能用于表达式中。 Function Summ(x, y) As Integer Summ = x + y End Function ? Sub subSumm() ? Dim a As Integer, b As Integer, c As Integer ? a = InputBox(请输入a) ? b = InputBox(请输入b) ? c = Summ(a, b) ? MsgBox (c=a+b= a + b = c) Form_MyForm2!Label16.Caption = c=a+b= a + b = c End Sub ? Private Sub Command2_Click() ?Call subSummo End Sub ? ? ? 三、VBA程序对数据库的操作 ? ? 1．Microsoft Jet和ODBCDirect工作区模型 ? ⑴ Microsoft Jet工作区 ? VB可以简单地打开一个现存的数据库，或是自己建立一个新的数据库。数据库类型可以是Microsoft Jet数据库（.mdb）、ISAM（索引查找访问模式，如Paradox数据库），也可以是通过 Microsoft Jet数据库引擎连接的ODBC数据库。 ? 可以利用对象变量或DDL特性来改变数据库结构。例如下面的代码把一个新的字段对象加入到现存的数据库表中： Dim dbs As Database,tdf As TableDef,fld As Field Set dbs = OpenDatabase(“BiBlio.mdb”) Set tdf = dbs.TableDefs(“Authors”) Set fld = tdf.CreateField(“Address”,dbText,20) Tdf.Fields.Append Fld ? VB具有进行数据处理、事务处理、数据备份、安全处理等工作的强大功能。 ? ⑵ ODBCDirect工作区模型 ? ODBCDirect工作区模型主要通过连接数据库、查询设计、 ? 2．使用DAO操作数据 ? 打开数据库： ? Private Sub Command7_Click() ? Dim dbExam As Database ? Set dbExam = OpenDatabase(d:/st.mdb, True, True) ? MsgBox (The dataBase [ dbExam.Name ] is now open) End Sub ? ? 字段值增一 ? Private Sub Command8_Click() ? Dim dbExam As Database ? Dim strSql As String ? strSql = UPDATE st1 SET Age=Age+1 ? Set dbExam = OpenDatabase(d:/Access教程/st.mdb) ? dbExam.Execute strSql ? MsgBox (St数据库中的St1表的Age字段已增一更新) ? dbExam.Close End Sub ? 根据提示更新数据 ? Private Sub Command9_Click() ? Dim dbExam As Database ? Dim strSql As String ? Dim i As Integer ? i = InputBox(Please enter i) ? strSql = UPDATE st1 SET Age=Age+ i ? Set dbExam = OpenDatabase(d:/Access教程/st.mdb) ? dbExam.Execute strSql ? MsgBox (St数据库中的St1表的Age字段已更新 i) ? dbExam.Close End Sub ? 添加记录之一 ? Private Sub Command10_Click() ? Dim dbExam As Database ? Dim intCommand As Integer ??Set dbExam = OpenDatabase(st.mdb) ? Set rstExam = dbExam.OpenRecordset(st1, dbOpenDynaset) ? With rstExam ? .AddNew ??? !Name = 八八先生 ??? !Age = 88 ??? !Tel = 8888888 ??? intCommand = MsgBox(正在添加新记录，继续吗？, vbYesNo) ???