access数据库视频教程,access数据库应用实例

酒易淘白酒 2022-09-16 16:27:36

品牌名称：酱香白酒加盟 所属行业：酒水 > 白酒

基本投资：10~50万元投资热度：

加盟意向：1634 门店数量：534家

索要资料查看详情

　　现有九个班级的学生成绩表，包括三门课程的成绩：　　

　　要求在Excel中绘制各班、各科平均成绩直方图。　　

　　单纯用Excel整理数据是很麻烦的。一共九节课，每节课都要求三门课的平均分，费时费力。　　

　　可以借助Access数据库统计数据，然后返回Excel进行映射。　　

　　第一步：将数据直接粘贴到Access数据库 　　

　　将学生成绩数据复制到Excel表格中打开已有的Access数据库创建表格粘贴保存。　　

　　第二步：创建查询，统计数据 　　

　　创建查询设计编写语句运行：　　

　　从表1中选择班级，平均(中文)，平均(英文)，平均(数学)按班级分组　　

　　运行结果：　　

　　第三步：复制到Excel表格中，进行成图 　　

　　点击左上角右键复制打开Excel表格粘贴映射。　　

　　粘贴到Excel表格中：　　

　　变成一幅画：　　

　　单击插入图表直方图。　　

　　结果：　　

　　实际上，实际工作中有很多问题可以通过将Access数据库和Excel表单结合起来解决，这样可以节省时间。虽然Excel表格中提供了很多函数来分组得到想要的结果，但是步骤比较繁琐。　　

　　通过这种结合，可以很好的解决不同的问题。一是利用Access数据库在数据处理上的优势，二是利用Excel表格映射的优势。两者优势结合，必然事半功倍。　　

　　VB程序自动数据处理Access数据库和Excel表格数据VB程序设计简单易学，一些非计算机专业人士也能轻松学会VB程序设计。VB程序设计完全可以胜任处理你的日常工作问题，还有一些复杂的数据需要处理和计算。如果只有简单的表格或数据库，整个操作就相当麻烦，不仅浪费时间，还容易出错。下面介绍如何用VB程序读取Access数据库和Excel表中的数据。　　

　　VB程序读取Excel表格数据 　　

　　首先，打开VB6.0编程。打开后，是这个界面：　　

　　这是一个空的程序窗口。我们还没有添加任何控件和代码。先不详细介绍VB6.0的界面。我们现在只用它的按钮控件，就是上面圈出来的东西。里面叫“commandbutton”。我们双击它，它就会跳到我们的窗口界面：　　

　　再次双击，就可以编写代码了：　　

　　其实和Access数据库和Excel表格的VBA宏差不多，只是语法上略有不同。VB6.0可以非常灵活地制作一个小的软件程序，而VBA宏只能作为一个插件。　　

　　读取Excel表格数据的程序实际读取　　

的代码基本是固定的，只要大家把这个固定的程序代码直接复制进去就好，根本不用自己亲自动手去敲代码的。

大家可以看一下这些代码，都表示什么意思呢？

我们来看定义的内容：

Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetDim xlSheet1 As Excel.Worksheet这几个定义都是固定的模式，我们使用VB程序对Excel表格数据进行读取时，都要对Excel进行定义，这样VB程序才能够识别出所要读取的文件。

Set xlApp = CreateObject("Excel.Application")是建立Excel文件用的，它表示建立一个Excel对象，对象建立完了之后，我们就可以打开指定的文件了，就是下面这个：

Set xlBook = xlApp.Workbooks.Open("F:\报表运行表.xls")xlApp.Visible = True//表示让对象可见，就是在读取的时候，我们能看到文件的打开，Set xlSheet1 = xlBook.Worksheets("表1")//表示要读取文件中的哪个表，这里面是读取"表1"xlSheet1.Activate//表示激活要读取的表，只有激活了，才能保证操作在当前表进行以上都是固定的模式，大家可以复制即可，不用敲代码。

紧接着，For i = 4 To 89．．．．Next i就是我们读取数据和处理数据的过程了，具体要根据实现什么样的功能，来编写程序。

再往下还是固定的模式，就是读取完文件内容后，要把文件关闭掉，要不它会始终占据内存的：

xlBook.ClosexlApp.QuitSet xlApp = Nothing上面就是关闭文件，释放对象的过程。

MsgBox "good job"就是程序运行完之后会弹出小的对话框，对话框显示的文字就是“good job”，当然也可以显示“程序已经运行完毕”，比较灵活。

代码写完之后，我们来运行程序，就是点击这个小三角号：

运行之后，会弹出：

可以看到，这窗体上面只有一个按钮，我们要想运行我们刚刚写的代码，只需要点击上面这个按钮就可以啦，就是点击“Command1”。

VB程序读取Access数据库数据

下面再来看看VB如何操作Access数据库，其实VB操作Access数据库的代码理简单，看看下面这个就知道啦:

可以看到，前三行是定义：

Dim conn As New ADODB.ConnectionDim strConn As StringDim sql As String是固定的模式，直接复制进去即可。

strConn = "Provider=microsoft.ace.oledb.12.0;Data Source=D:\0基础资料\data.accdb"这条语句是读取路径，找到文件的位置，也是固定的模式，只要把文件名改了即可。

再往下是一条查询语句：

sql2 = "select b.* into yj1 from (select jh,min(rqx) as rqx1 from yjs07 group by jh) a left join yjs07 b on (a.jh=b.jh and a.rqx1=b.rqx)"这条查询语句就是我们要实现的复杂操作，当然我们在程序里面可以上百条的查询语句，只要遇到同样的工作，我们可以直接运行程序即可。

再往下：

conn.Open strConnconn.Execute (sql1)这两条语句就是执行我们前面写的的查询语句啦，也是固定的，只要把查询语句的名称改了就好。

Set conn = Nothing//这是释放文件，用完了要关掉。再往下就是MsgBox "good job"，就是和上面操作Excel表格一样，程序运行完了之后会弹出一个对话框：

其实非计算机专业的人士也能够很好的学会编程，只要掌握技巧是很容易掌握的，小编身边有不少非计算机专业的人都在学习编程，只要掌握了编程，手头的工作会变的如此轻松。

VB程序存取Excel数据实例讲解先来看一个VB程序存取Excel表格数据的例子，我们要把“sheet1”表中一班的学生语文成绩用VB程序存取到“sheet2”表里面去。

首先打开安装好的VB6.0程序，然后保存到一个指定的文件夹下面，这样我们就有了一个空的VB程序，我们双击按钮控件，按钮控件就会自动跳到窗体上面：

在进入代码窗口之前我们简单把这个控件设计成好看的样式，点击属性窗口图标，就会弹出一个属性窗口，在这个窗口下，就能对我们的按钮进行设计啦：

然后点击按钮控件，在右边的属性窗口找到“Caption”字样，它就是控件要显示的名字，我们可以任意修改，改完后的效果是这样的：

再来改一下它的色彩吧，这样看起来漂亮些，就改成下面这样吧：

可以看到按钮变颜色，如果选上色彩后，没有变色，那一定有一个选项没选，就是下面这个要点Style选项的第二个类型，就允许我们对控件的色彩进行改变：

好了，继续双击这个设计完的按钮吧，这样就进入到编写代码的窗口了，就是下面这个样子：

先把昨天的固定代码复制过来，就是读取Excel表格数据固定引用的代码，在代码窗口的开始部分：

Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetDim xlSheet1 As Excel.WorksheetDim xlSheet2 As Excel.WorksheetSet xlApp = CreateObject("Excel.Application")Set xlBook = xlApp.Workbooks.Open("F:\成绩表.xlsx")xlApp.Visible = TrueSet xlSheet1 = xlBook.Worksheets("Sheet1")xlSheet1.Activate上面的"F:\成绩表.xlsx"和"Sheet1"是我们要读取数据的目标文件和目标表，一定要和我们的数据一致。

在代码窗口的结尾部分是这些固定的代码：

xlBook.ClosexlApp.QuitSet xlApp = NothingMsgBox "主人，黑猫警长向您报告，程序已运行完毕"

MsgBox后面的内容是可以随便修改的。

准备的代码都已经完工，就等着在上面中间的空白部分去实现我们要实现的工作，我们的目标是要把“sheet1”表中一班的学生语文成绩自动存取到“sheet2”表里面去。

我们先来把“sheet1”表中一班的数据读到变量里面去：

m = 1For i = 2 To 121【一共有121条学生数据】If Trim(xlSheet.Cells(i, "a")) = "一班" Then【条件判定】gs = gs + 1【记录一班学生数量】a1(m) = xlSheet1.Cells(i, "a")【读班级】b1(m) = xlSheet1.Cells(i, "b")【读姓名】c1(m) = xlSheet1.Cells(i, "c")【读语文成绩】m = m + 1End IfNext i我们已经读完数据啦，下面我们来把从“sheet1”表中读取的一班数据写到“sheet2”表中去：

m = 1For i = 2 To gs【gs表示一班的学生人数】xlSheet2.Cells(i, "a")= a1(m) 【写班级】xlSheet2.Cells(i, "b")= b1(m) 【写姓名】xlSheet2.Cells(i, "c")= c1(m) 【写语文成绩】m = m + 1Next i这样，我们的程序就差不多啦，不过还要修改几处，就是前面要加上变量的定义，否则程序就会报错，定义加在前面即可：

Dim a1(1 To 50), b1(1 To 50), c1(1 To 50)//【定义数组，装数据用的】Dim gs, i, m//【定义变量】最后，编完的程序是这样的:

来点击上面的小三角运行吧，运行之后是这样的：

点击按钮，看看有什么反应：

直接弹出这个文件啦，程序瞬间完成了我们的工作，问是否保存呢，我们点击取消就行，文件就会打开着，之后我们再保存。

点完取消会弹出这个信息框：

就是我们在程序里面做的提示信息，告诉我们工作已经完成。

VB程序操纵Access数据库先来创建一个空的VB程序，当然也可以用昨天做好现成的，只不过我们在旁边再加一个“按钮控件”而已，我们按照昨天的设置，对今天新加的这个按钮显示的内容“Caption”改成“逆天操纵Access”，和背景色“BackColor”改成“粉色”，以及字体改成“楷体”和字体大小改成“小四”号，完成了相应的设置之后，就是下面这个样子：

可以看到这个窗体多了一个按钮，双击它进入到编写代码窗口:

可以看到，上面的代码就是我们昨天编写的存取Excel文件数据用的代码，下面这个模块是空的：

Private Sub Command2_Click()End Sub我们需要编写程序代码，前半部分是固定模式的代码：

Dim conn As New ADODB.Connection//【定义一个数据库连接】Dim strConn As String//【定义一个字符串变量存放数据库所在路径】前半部分一切搞定，再来看后半部分：

Set conn = Nothing//【工作完成后释放数据库连接】MsgBox "您的程序运行完毕"//【弹出消息框示意工作已经完成】

中间开始写我们要实现具体工作的代码。

现在就对下面这个学生成绩表，求三门成绩的总分放在新的字段中：

写代码：

Dim sql1, sql2 As String//【定义两个字符串，用来装查询语句】strConn = "Provider=microsoft.ace.oledb.12.0;Data Source=F:\1文章\个人数据库.accdb"//【读取数据库所在路径】sql1 = "alter table xscj add column 总分数 float"//【增加一个“总分数”字段的语句】sql2 = "update xscj set 总分数=yy+yw+sx"//【算三门总分的语句】conn.Open strConn//【打开数据库】conn.Execute (sql1)//【执行语句1】conn.Execute (sql2)//【执行语句2】conn.Close//【关闭数据库】好了，写完了，放在程序里面就是这样的：