vb连接ACCESS数据库实例

对于没有VB运行库的机器，必须注册VB运行库，程序中的代码不需要改动。 ----------------------------------- 链接数据库的方法比较多，看你采用什么方法链接了，： 1、用ADO链接；2、用Data数据控件链接；3、用ADODB数据控件链接；还有数据库文件是Access 1997?Access 2000?Access 2003?有没有加密？等等等等问题，首先确定这些问题，才能..... 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=F:\library\1.mdbJet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据 *** 作了，注意，在数据库 *** 作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close

1、建库：打开ACCESS，新建一个空数据库即可。

2、建表，设置主键：可以使用设计器、向导、或者输入数据方式。

另外可以在SQL视图中，使用下面的SQL语句。

create

table

希望小区交费表(

门牌号码

text,

姓名

text,

水费

number,

电费

number,

物业费

number,

是否欠费

bit,

交费日期

datetime,

primary

key

(门牌号码)

)

3、向表中输入记录：可以在建表时，直接手工输入记录。

也可以使用下面的SQL语句，向表中插入数据,一次只允许执行一条SQL语句。

insert

into

希望小区交费表

values

('01','王丽','37','120','20',true,#2007-9-20#)

insert

into

希望小区交费表

values

('02','李俊','23','68','15',false,null)

insert

into

希望小区交费表

values

('03','刘弘','36','100','20',true,#2007-9-22#)

insert

into

希望小区交费表

values

('04','张芳','25','50','15',false,null)

insert

into

希望小区交费表

values

('05','王立','30','90','20',true,#2007-9-25#)

4、做一个名为“交费查询”的查询，已保存在数据库中：

SELECT

门牌号码,

姓名,

水费,

电费,

物业费,

sum(水费+电费+物业费)

AS

收费合计

FROM

希望小区交费表

WHERE

是否欠费

=

true

GROUP

BY

门牌号码,

姓名,

水费,

电费,

物业费

5、做一个名为“欠费查询”的查询，已保存在数据库中：

SELECT

门牌号码,

姓名,

水费,

电费,

物业费

FROM

希望小区交费表

WHERE

是否欠费

=

false

6、以“希望小区交费表”为报表的数据源，创建一个包含门牌号码、姓名、水费、电费、物业费的标题为“交费通知表”的报表。见附件。

附件：ZCKS-姓名.rar

---