Access数据库、Excel表格与VB编程完美结合实现Excel表格透视功能-vb数据库( 二 ) _经验知识

紧接着。For i = 4 To 89．．．．Next i就是我们读取资料和处理资料的过程了。详细要根据实现什么样的功能。来编编辑程序。
再往下还是特定的模式。就是读取完文件内容后。要把文件关闭掉。要不它会始终占据内存的：
xlBook.Closexl软件.QuitSet xl软件 = Nothing上面就是关闭文件。释放对象的过程。
【Access数据库、Excel表格与VB编程完美结合实现Excel表格透视功能-vb数据库】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”表里面去。