VB程序读取Access数据库与Excel表格数据,从而实现自动数据处理

2020年5月31日20:47:12 发表评论 185 views

 

VB程序设计比较容易学习,一些非计算机专业的人士也能够轻松学好VB程序设计,VB程序设计来应付我们日常工作中的问题,是完全可以胜任的,有一些比较复杂的数据需要进行处理运算,如果单纯的有表格或者数据库,整个操作是相当麻烦的,不仅浪费了时间,还容易出错,下面我们来介绍一下利用VB程序如何读取Access数据库中的数据与Excel表格中的数据。

VB程序读取Excel表格数据

首先我们打开VB6.0程序设计,打开后是这个界面:

VB程序读取Access数据库与Excel表格数据,从而实现自动数据处理

VB6.0程序设计界面

这是一个空的程序窗口,我们还没添加任何控件和代码,我们先不细介绍VB6.0的界面,我们现在只用到它的按钮控件,就是上面圈起来的东东。它在里面叫做'commandbutton',我们双击它,它就跳到我们的窗口界面了:

VB程序读取Access数据库与Excel表格数据,从而实现自动数据处理

添加一个按钮即可

我们再来继续双击,就可以编写代码啦:

VB程序读取Access数据库与Excel表格数据,从而实现自动数据处理

双击按钮进入代码窗口

其实和我们Access数据库与Excel表格的VBA宏是差不多的,只不过语法上略有差别,VB6.0可以很灵活的去做一个小的软件程序,而VBA宏只能作为插件使用。

好啦,我们来写读取Excel表格数据的程序吧,其实读取的代码基本是固定的,只要大家把这个固定的程序代码直接复制进去就好,根本不用自己亲自动手去敲代码的。

VB程序读取Access数据库与Excel表格数据,从而实现自动数据处理

编写程序代码

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

我们来看定义的内容:

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim 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.Close

xlApp.Quit

Set xlApp = Nothing

上面就是关闭文件,释放对象的过程。释放完就OK了

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

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

VB程序读取Access数据库与Excel表格数据,从而实现自动数据处理

点击三角号运行

运行之后,会弹出这个东东:

VB程序读取Access数据库与Excel表格数据,从而实现自动数据处理

点击按钮触发程序

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

VB程序读取Access数据库数据

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

VB程序读取Access数据库与Excel表格数据,从而实现自动数据处理

操作Access数据库代码

可以看到,前三行是定义:

Dim conn As New ADODB.Connection

Dim strConn As String

Dim 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 strConn

conn.Execute (sql1)

这两条语句就是执行我们前面写的的查询语句啦,也是固定的,只要把查询语句的名称改了就好。

Set conn = Nothing这是释放文件,用完了要关掉。

再往下就是MsgBox 'good job',就是和上面操作Excel表格一样,程序运行完了之后会弹出一个对话框:

VB程序读取Access数据库与Excel表格数据,从而实现自动数据处理

弹出一个消息框

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

 

 


发表评论

您必须才能发表评论!