《ACCESS实例教程(数据库的编程)》由会员分享，可在线阅读，更多相关《ACCESS实例教程(数据库的编程)(31页珍藏版)》请在人人文库网上搜索。
1、Access实例教程,潘明寒 赵义霞 主编 中国水利水电出版社,ACCESS实例教程,数据库编程(第9章,1，用ADO访问数据库 2，用DAO访问数据库 3，程序运行错误处理,本章要点,9.1 VBA数据库访问接口,VBA数据库访问接口是指VBA与后台数据库的连接部分，也就是VBA与Access数据库连接的方法,9.1.1 三种数据库访问接口,1ODBC(Open Database Connectivity)， ODBC称为“开放式数据库连接”，是一种关系数据源的接口界面。ODBC基于SQL(Structured Qurey Language)，把SQL作为访问数据库的标准，一个应用程序通过一。
2、组通用代码访问不同的数据库管理系统。ODBC可以为不同的数据库提供相应的驱动程序,2DAO(Data Access Objects) DAO称为“数据访问对象”，是一种面向对象的界面接口，提供一个访问数据库的对象模型，用其中定义的一系列数据访问对象，实现对数据库的各种操作。使用DAO的程序编码非常简单。 3ADO(ActiveX Data Objects) ADO称为“Active数据对象”，是基于组件的数据库编程接口。ADO实际是一种提供访问各种数据类型的连接机制，是一个与编程语言无关的COM(Component Object Model)组件系统。ADO设计为一种极简单的格式，可以方便地连。
3、接任何符合ODBC标准的数据库,数据库引擎是一组动态链接库DLL(Dynamic Link Library)，在程序运行时被连接到VBA，实现对数据库的数据访问功能。是应用程序与物理数据库之间的桥梁。 VBA通过DAO和数据引擎可以识别3类数据库： 1本地数据库：即Access数据库。 2外部数据库：所有索引顺序访问方法(ISAM)数据库，如VFP。也可以访问文本文件数据库和Microsoft Excel或Lotus1-2-3电子表格。 3ODBC数据库：符合ODBC标准的C/S数据库，如SQL Server、Oracle,9.2.1 DAO模型结构,DAO模型是设计关系数据库系统结构的对象类。
4、的集合，它们提供了管理关系型数据库系统所需的全部操作的属性和方法，这其中包括创建数据库、定义表、字段和索引、建立表之间的关系、定位和查询数据库等,9.2 用DAO访问数据库,3.2 统配符、运算符与常用函数,9.2.2 DAO对象简介,1DBEngine对象，处于最顶层，表示数据库引擎，是模型中惟一不被其他对象所包含的对象，它包含并控制DAO模型中其他全部对象。 2Workspace对象，表示工作区，可以使用隐含的workspace对象。 3Database对象，代表到数据库的连接，表示操作的数据库对象。 4RecordSet对象，代表一个数据记录的集合，该集合的记录来自于一个表、一个查询或一。
5、个SQL语句的运行结果。 5Field对象，表示记录集中的字段。 6QueryDef对象，表示数据库查询信息。 7Error对象，表示数据提供程序出错时的扩展信息,9.2.3 用DAO访问数据库,用DAO访问数据库时，先在程序中设置对象变量，然后通过对象变量调用访问对象的方法、设置访问对象的属性，从而实现对数据库的各种访问。定义DAO对象要在对象前面加上前缀“DAO” 用DAO访问数据库的一般语句和步骤。 Dim ws as DAO.Workspace 定义Workspace对象变量 Dim db as DAO.Database 定义Database对象变量 Dim rs as DAO.Rec。
6、ordSet 定义RecordSet对象变量 Dim fd as DAO.Field 定义Field对象变量 Set ws=DBEngine.Workspace(o) 打开默认工作区 Set db=ws.OpenDatabase(数据库的地址与文件名) 打开数据库 Set rs=db.OpenRecordSet(表名、查询名或SQL语句) 打开记录集,Do While not rs.EOF 循环遍历整个记录集直至记录集末尾 对字段的各种操作 rs.MoveNext 记录指针移到下一条 Loop 返回到循环开始处 rs.close 关闭记录集 db.close 关闭数据库 set rs=noth。
7、ing 释放记录集对象变量所占内存空间 set db=nothing 释放数据库对象变量所占内存空间 说明： 如果是本地数据库，可以省略定义Workspace对象变量，打开工作区和打开数据库两条语句用下面一条语句代替： Set db = CurrentDb() 该语句是Access的VBA给DAO提供的数据库打开快捷方式,例：用DAO访问数据库,1)在窗体建2个文本框名称分别为t1和t2附加标签的标题分别为“姓名”和“工资”。 (2)在窗体页眉添加标签标题为“工资增加10%”。 (3)在窗体页脚建命令按钮名称为c1标题为“显示第一条记录,4)给命令按钮的单击事件写代码如下： Dim db as。
8、 DAO.Database 定义Database对象变量 Dim rs as DAO.Recordset 定义Recordset对象变量 Dim fd as DAO.Field 定义Field对象变量 Set db = CurrentDb() 建立与当前数据库的连接 Set rs = db.OpenRecordset(gz) 建立与gz表的连接 Set fd = rs.Fields(工资) 设置对“工资”字段的引用 Do While Not rs.EOF 如果指针没有到最后就执行循环体 rs.Edit 使rs处于可编辑状态 fd = fd + fd * 0.1 给指定字段值增加10% rs.U。
9、pdate 更新表,rs.MoveNext 向下移动指针 Loop 返回到循环开始处 rs.MoveFirst 指针移到第一条记录 t1 = rs.Fields(姓名) 将姓名字段的值显示在t1中 t2 = rs.Fields(工资) 将工资字段的值显示在t2中 rs.Close db.Close Set rs = Nothing Set db = Nothing,5)转到窗体视图单击命令按钮，可以看到t2文本框中显示第一条记录更新后的工资值,9.3 用ADO访问数据库,9.3.1 ADO模型结构,ADO对象模型是一系列对象的集合，对象不分级，除Field对象和Error对象之外，其他对象可直。
10、接创建。使用时，通过对象变量调用对象的方法、设置对象的属性，实现对数据库的访问,9.3.2 ADO对象简介,1Connection对象，建立到数据源的连接。 2Command对象，表示一个命令。 3RecordSet对象，表示数据操作返回的记录集合。 4Field对象，表示记录集中的字段。 5Error对象，表示数据提供程序出错时的扩展信息。 Connection对象与RecordSet对象是两个ADO中最重要的对象。RecordSet对象可以分别与Connection对象和Command对象联合使用,9.3.3 用ADO访问数据库,首先创建对象变量，然后用对象的方法和属性访问数据库。为了与D。
11、AO中同名对象有所区分，ADO对象的前面要加上前缀“ADODB”。用ADO访问数据库的一般语句和步骤,1RecordSet对与Connection对象联合使用 Dim cn as new ADOBD.Connection 建立连接对象 Dim rs as new ADOBD.RecordSet 建立记录集对象 cn.Provider=Microsoft.Jet.OLEDB.4.0 设置数据提供者 cn.Open 连接字符串 打开数据库 rs.Open 查询字符串 打开记录集 do while not rs.EOF 循环开始 对字段的各种操作 rs.movenext 记录指针移到下一条,loop。
12、 返回到循环开始处 rs.close 关闭记录集 cn.close 关闭连接 set rs=nothing 释放记录集对象变量所占内存空间 set cn=nothing 释放连接对象变量所占内存空间 说明： 对于本地数据库，Access的VBA也给ADO提供了类似于DAO的数据库打开快捷方式，可以将设置数据提供者和打开数据库两条语句用下面一条语句代替： Set cn = CurrentProject.Connection(,2RecordSet对与Command对象联合使用 Dim cm as new ADOBD.Command 建立命令对象 Dim rs as new ADOBD.Recor。
13、dSet 建立记录集对象 cm.ActiveConnection=连接字符串 建立命令对象的活动连接 cm.CommandType=查询类型 指定命令对象的查询类型 cm.CommandText=查询字符串 建立命令对象的查询字符串 rs. Open cm, 其他参数 打开记录集 do while not rs.EOF 循环开始 对字段的各种操作 rs.movenext 记录指针移到下一条 loop 返回到循环开始处 rs.close 关闭记录集 set rs=nothing 释放记录集对象变量所占内存空间,例：用ADO访问数据库,1)在窗体建3个文本框名称分别为t1、t2和t3。 (2)在窗。
14、体页眉添加标签标题为“工员增加”。 (3)在窗体页脚建命令按钮名称为c1标题为“追加到表中,4)命令按钮c1的单击事件代码： Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim str1 As String Set cn = CurrentProject.Connection 建立本地连接 rs.ActiveConnection = cn rs.Open Select 教师编号 From 教师 Where 教师编号= +t1+ If rs.EOF = False Then MsgBox 该编号已存在，不能追加！ El。
15、se str1 = Insert Into 教师 (教师编号,姓名,性别)“ str1 = str1 + Values(+t1+ , +t2+ , +t3+ ) cn.Execute str1 执行指定的SQL语句,MsgBox 添加成功，请继续！ End If rs.Close cn.Close Set rs = Nothing Set cn = Nothing 说明： 在程序中，用 +t1+ 取得文本框t1中的值，原来用双引号定界的地方改为单引号。两个相同的引号不能连着写。 Execute 是Command 对象和Connection对象的方法，执行指定的查询，并将执行产生的结果存储在 R。
16、ecordset 对象中,5)转到窗体视图，如果输入的编号与表中的编号有重复，单击命令按钮后显示消息框，输入的信息不能追加到表中,图1-15 层次模型,6)如果输入的编号与表中的编号不重复，单击命令按钮后显示消息框，输入的信息被追加表中,9.4 VBA程序错误处理,VBA提供了On Error语句，用来控制当有错误发生时程序的处理，启动一个错误处理程序并指定该子程序在一个过程中的位置。 一个错误处理程序不是 Sub 过程或 Function 过程，它是一段用行号标记的代码,9.4.1 On Error语句的语法,On Error语句的语法通常有3种样式,1On Error GoTo 行号 启动。
17、错误处理程序，如果发生一个运行时错误，控件会转到行号所指位置，执行其中的代码。指定的行号必须在一个过程中，这个过程与 On Error 语句所在的过程相同。 例如： On Error GoTo aa 如果发生错误转到aa处 aa: 行号aa 错误处理程序代码 处理错误 功能：当程序发生错误，跳转到aa位置执行,2On Error Resume Next 当一个运行错误发生时，不考虑错误，继续执行下一条语句。访问对象时要使用这种形式而不使用 On Error GoTo语句。 3On Error GoTo 0 关闭错误处理，禁止当前过程中任何已启动的错误处理程序,9.4.2 了解错误信息,1Err。
18、对象 Err是一个含有运行时错误信息的对象，Err对象的number属性返回错误代码。用Err.Source可以帮助确定是哪个对象产生错误，用 Err.Number 可以帮助确定是哪个对象将错误代码放在其中。 Err 是全局范围的固有对象，在代码中不必建立这些对象的实例。 2Rrror函数 格式：Rrror(错误号) Rrror函数的自变量是一个有效的错误号，函数返回与已知错误号对应的错误信息。如果不是有效的错误号，会导致错误发生。错误号是可选项，如果省略，将返回与最近一次运行错误对应的消息。如果没有发生运行错误，或者错误号是 0，则 Error函数 返回一个长度为零的字符串 (,例：错误处理。
19、练习,1)建文本框名称为t1建立命令按钮名称为c1。 (2)命令按钮c1的单击事件代码： Private Sub c1_Click() On Error GoTo aa 如发生错误转到行号aa Dim s1 As String s1 = t1 DoCmd.OpenQuery s1, acViewNormal, acEdit 打开查询 bb: 行号bb Exit Sub 退出过程 aa: 行号aa MsgBox 没有此查询,请重新输入! Resume bb 转到行号bb End Sub,3)转到窗体视图，在文本框输入“男讲师”，单击命令按钮，显示名为“男讲师”的查询,4)在文本框输入“女讲师”，单击命令按钮，调用错误处理机制，用消息框提示错误。

ACCESS 实例学生信息管理表之间关系图




汉语编程1
汉语编程2
汉语编程3
转载于:https://blog.51cto.com/13172026/2164352

C#操作Access实例是怎么实现的呢？让我们来看看具体的代码：
using System;  
using System.Data;  
using System.Configuration;  
using System.Web;  
using System.Web.Security;  
using System.Web.UI;  
using System.Web.UI.WebControls;  
using System.Web.UI.WebControls.WebParts;  
using System.Web.UI.HtmlControls;  
using System.Data.OleDb;   
 
/// <summary>  
/// DataAccess 的摘要说明 C#操作Access实例解析 
/// </summary>  
public class DataAccess  
{  
 protected static OleDbConnection conn = new OleDbConnection();  
 protected static OleDbCommand comm = new OleDbCommand();  
public DataAccess()  
{  
   //init C#操作Access实例解析 
}  
 private static void openConnection()  
 {  
if (conn.State == ConnectionState.Closed)  
{  
conn.ConnectionString = @"Provider=Microsoft.Jet.OleDb.4.0;  
Data Source="+ConfigurationManager.AppSettings["myconn"];  
//web.config文件里设定。  
comm.Connection = conn;  
try 
{  
conn.Open();  
}  
catch (Exception e)  
{ throw new Exception(e.Message); }  
 
}  
     
 }//打开数据库 C#操作Access实例解析
    
 private static void closeConnection()  
 {  
if (conn.State == ConnectionState.Open)  
{   
conn.Close();  
conn.Dispose();  
comm.Dispose();  
}  
 }//关闭数据库 C#操作Access实例解析 
 
 public static void excuteSql(string sqlstr)  
 {  
try 
{  
openConnection();  
comm.CommandType = CommandType.Text;  
comm.CommandText = sqlstr;  
comm.ExecuteNonQuery();  
}  
catch (Exception e)  
{  
throw new Exception(e.Message);  
}  
finally 
{ closeConnection(); }  
 }//执行sql语句 C#操作Access实例解析 
 
 public static OleDbDataReader dataReader(string sqlstr)  
 {  
OleDbDataReader dr = null;  
try 
{  
openConnection();  
comm.CommandText = sqlstr;  
comm.CommandType = CommandType.Text;  
 
dr = comm.ExecuteReader(CommandBehavior.CloseConnection);  
}  
catch 
{  
try 
{  
dr.Close();  
closeConnection();  
}  
catch { }  
}  
return dr;  
}  
//返回指定sql语句的OleDbDataReader对象，使用时请注意关闭这个对象。  
 public static void dataReader(string sqlstr,  
 ref OleDbDataReader dr)  
 {  
try 
{  
openConnection();  
comm.CommandText = sqlstr;  
comm.CommandType = CommandType.Text;  
dr=comm.ExecuteReader(CommandBehavior.CloseConnection);  
}  
catch 
{  
try 
{  
if (dr != null && !dr.IsClosed)  
   dr.Close();  
}  //C#操作Access实例解析
catch 
{  
}  
finally 
{  
closeConnection();  
}  
}  
 }  
//返回指定sql语句的OleDbDataReader对象,使用时请注意关闭  
 
 public static DataSet dataSet(string sqlstr)  
 {  
DataSet ds = new DataSet();  
OleDbDataAdapter da = new OleDbDataAdapter();  
try 
{  
openConnection();  
comm.CommandType = CommandType.Text;  
comm.CommandText = sqlstr;  
da.SelectCommand = comm;  
da.Fill(ds);  
 
}  
catch (Exception e)  
{  
throw new Exception(e.Message);  
}  
finally 
{  
closeConnection();  
}  
return ds;  
 }//返回指定sql语句的dataset C#操作Access实例解析 
 
 public static void dataSet(  
string sqlstr, ref DataSet ds)  
 {  
OleDbDataAdapter da = new OleDbDataAdapter();  
try 
{  
openConnection();  
comm.CommandType = CommandType.Text;  
comm.CommandText = sqlstr;  
da.SelectCommand = comm;  
da.Fill(ds);  
}  
catch (Exception e)  
{  
throw new Exception(e.Message);  
}  
finally 
{  
closeConnection();  
}  
 }//返回指定sql语句的dataset C#操作Access实例解析
 
 public static DataTable dataTable(string sqlstr)  
 {  
DataTable dt = new DataTable();  
OleDbDataAdapter da = new OleDbDataAdapter();  
try 
{  
openConnection();  
comm.CommandType = CommandType.Text;  
comm.CommandText = sqlstr;  
da.SelectCommand = comm;  
da.Fill(dt);  
}  
catch (Exception e)  
{  
throw new Exception(e.Message);  
}  
finally 
{  
closeConnection();  
}  
return dt;  
 }//返回指定sql语句的datatable  
 public static void dataTable(  
string sqlstr, ref DataTable dt)  
 {  
OleDbDataAdapter da = new OleDbDataAdapter();  
try 
{  
openConnection();  
comm.CommandType = CommandType.Text;  
comm.CommandText = sqlstr;  
da.SelectCommand = comm;  
da.Fill(dt);  
}  
catch (Exception e)  
{  
throw new Exception(e.Message);  
}  
finally 
{  
closeConnection();  
}  
 }//返回指定sql语句的datatable C#操作Access实例解析 
 
 public static DataView dataView(string sqlstr)  
 {  
OleDbDataAdapter da = new OleDbDataAdapter();  
DataView dv = new DataView();  
DataSet ds = new DataSet();  
try 
{  
openConnection();  
comm.CommandType = CommandType.Text;  
comm.CommandText = sqlstr;  
da.SelectCommand = comm;  
da.Fill(ds);  
dv = ds.Tables[0].DefaultView;  
}  
catch (Exception e)  
{  
throw new Exception(e.Message);  
}  
finally 
{  
closeConnection();  
}  
return dv;  
 }  
//返回指定sql语句的dataview C#操作Access实例解析 
 
} 

C#操作Access实例解析的基本内容就向你介绍到这里，希望对你了解和学习C#操作Access有所帮助。

package com.tenking.database;
import java.sql.*;
public class AccessConnection {
public void DBC (){
try{
String strurl="jdbc:odbc:driver={Microsoft Access Driver (*.mdb)};DBQ=D:\\data.mdb";//ACCESS文件位置
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
Connection conn=DriverManager.getConnection(strurl);
System.out.println("连接成功!");
Statement stmt=conn.createStatement();
ResultSet rs=stmt.executeQuery("select * from Tx_menu");
while(rs.next())
{
System.out.println(rs.getString("Menu_Name"));
}
}catch(Exception e)
{
e.printStackTrace();
}
}
public static void main(String[] args) throws ClassNotFoundException {
AccessConnection dbc = new AccessConnection();
dbc.DBC();
}
}