关于VB6.0对access97的简单编程问题

来源:百度知道 编辑:UC知道 时间:2024/05/27 05:14:29
我以前考过了2级证,现在大概就是照着葫芦能画瓢的vb水平。

我现有一access97格式的.mdb数据库,想用vb编程对库进行一些打开、删除、更改、读出等的操作,并在需要时把数据生成到某一个已存在的excel表格的某个固定单元格中。

对库的操作比较简单,主要就是类似以下等等的任务:

1、删除具有某一相同属性(这个叫列?)元组(大概叫这个吧?就是行)的全部数据(删除行)。
举例:把数学成绩为“0”的学生在“成绩”表中的全部数据删除,但学生“健康”或者“住址”等别的表中的数据不变。假设“成绩”、“健康”这些表中都有相同的“学生姓名”这一列。

2、读出具有某一个相同属性的行的另一个属性,并进行简单的加减运算。
举例:读出库中某一般班的学生(比如这些学生的班级这个属性列同为“一班”)的数学课成绩,并求和,或者按及格不及格计数之类的。

因为要进行的操作比较固定,所以我想利用vb来做,做成简单程序来便于直接运行。界面大概只需要一个用来选数据库的(也可以在代码里就指向了某一个固定名字、位置的库),一个“执行”,就行了,就是想把这个类似的批处理的命令“固化”了它,好用起来方便。

最好再能给我一些关于vb数据库方面的函数之类的语句,好让我用来照着画瓢,谢谢了!

最后再说一下,我的库是后缀为mdb的access97格式的数据库,手头最现成的就是一套visal studio 6,我想应该足够完成这些任务把,就不考虑其他的语言了
看不懂啊。。。能不能稍微完整的写一段,以供我照着画瓢阿?

最简单的最实用的方法:
在VB中引用EXCEL和ACCESS,然后定义
Dim ACCEapp As Access.Application
Dim EXCEapp As Excel.Application
Set ACCEapp = New Access.Application 'or set ACCEapp = getobject(,"Access.Application")
Set EXCEapp = New Excel.Application 'or set ACCEapp = getobject(,"Excel.Application")
EXCEapp.Visible = True
ACCEapp.Visible = True
……
将……改为你想要的代码即可。
如果这也不会,那你就分别在excel和access中将你的操作录制为宏,将宏粘贴到……处,并在每句前冠以“exceapp.”或“acceapp.”即可。
此法超便捷。

VB如何连接access会不会?

我要跟据你的情况给你写代码。