当前位置: 首页 > 知识 >正文

python连接access数据库(vb连接access数据库代码)

你的网站还像往常一样“静态”吗?目前,有相当一部分几何级增长的互联网网站仍然固守“静态”,已经落后于时代的步伐。所谓“静态”,就是网站的内容是“固定的”。

当用户的浏览器通过互联网的HTTP协议请求web服务器提供网页内容时,服务器只将已经设计好的静态HTML文档发送到用户的浏览器。它的页面内容只使用标准的HTML代码,

最多加上现在流行的GIF89A格式的动态图片,比如几只小狗小猫跑来跑去的动画效果。如果网站维护者想要更新网页内容,他必须手动更新他所有的HTML文档。

“静态”网站的致命弱点是难以维护。为了不断更新网页内容,必须反复制作HTML文档。随着网站内容和信息量的不断增加,你会觉得工作量超乎想象。

一般来说,一个真实完整的网站离不开数据库,因为在实际应用中,有大量的数据需要保存,这些数据之间往往存在关联。使用数据库来管理这些数据可以非常方便地进行查询和更新。有很多种数据库,

如:福克斯数据库(。dbf),访问数据库(。mdb)、Informix、oracle和sql server等。这里,

我将与你分享ASP如何访问Access数据库的信息。

常见数据库语句

1.SELECT语句:命令数据库引擎将数据库中的信息作为一组记录返回。

2.INSERT INTO语句:向表中添加一条或多条记录。

3.UPDATE语句:创建一个更新查询,以根据特定条件更改指定表中的字段值。

4.DELETE语句:创建一个删除查询,从FROM子句中列出的一个或多个表中清除记录,并符合WHERE子句。

5.EXECUTE语句:用于激活过程。

使用ASP成为你自己的通讯录培训师.

首先,建立一个数据库:

使用Microsoft Access建立一个名为data.mdb的空数据库,并使用设计器创建一个新表。输入以下字段:

字段名称数据类型描述其他

ID自动编号数据标识字段大小:长整型新值:增量索引:是(无重复)

用户名文本名称默认值

用户邮件文本电子邮件默认值

视图视图数量字段大小:长整型默认值:0索引:无

日期时间日期添加时间默认值

保存为data.mdb 文件,为了便于说明,只是做了一个比较简单的库。

二、连接数据库

方法1:

Set conn=Server.CreateObject('ADODB.Connection')

conn.Open 'driver={Microsoft Access Driver (*.mdb)};dbq='Server.MapPath('data.mdb')

方法2:

Set conn=Server.CreateObject('ADODB.Connection')

conn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='Server.MapPath('data.mdb')

注意:一个页面中,只要连接一次就可以了,数据库使用完后要及时关闭连接。

conn.Close

Set conn=Nothing

三、添加新记录到数据库

Set conn=Server.CreateObject('ADODB.Connection')

conn.Open 'driver={Microsoft Access Driver (*.mdb)};dbq='Server.MapPath('data.mdb')

username='风云突变'

usermail='ec0705liujuan@163.com'

indate=Now()

sql='insert into data (username,usermail,indata) values(''username'',''usermail'',''indate'')'

conn.Execute(sql)

conn.Close

Set conn=Nothing

说明:建立数据库连接;通过表单获取姓名、E-mail 字符串,Now()获取当前时间日期;使用insert into 语句添加新记录;conn.Execute 来执行;最后关闭。

四、选择数据库里的记录

1.选择所有记录的字段(按记录倒序排序):sql='select * from data order by ID desc'

2.选择所有记录的姓名和E-mail字段(不排序):sql='select username,usermail from data'

3.选择姓名为“风云突变”的所有记录:sql='select * from data where username=''风云突变'''

4.选择使用163 信箱的所有记录(按查看次数排序):sql='select * from data where usermail like '%'@163.com'%' order by view desc'

5.选择最新的10个记录:sql='select top 10 * from data order by ID desc'

SQL 语句已经知道了,不过在Web应用时,还得创建一个RecordSet 对象得到记录集,才能把从数据库里取出的值应用在网页上,如果现在将所有的记录显示在网页上就这样:

Set conn=Server.CreateObject('ADODB.Connection')

conn.Open 'driver={Microsoft Access Driver (*.mdb)};dbq='Server.MapPath('data.mdb')

sql='select * from data'

Set rs=Server.CreateObject('ADODB.RecordSet')

rs.Open sql,conn,1,1

Do While Not rs.Eof

Response.Write 'p姓名:' rs('username') ' E-mail:' rs('usermail') ' 查看:' rs('view') '次 ' rs('indate') '加入/p'

rs.MoveNext

Loop

rs.Close

Set rs=Nothing

conn.Close

Set conn=Nothing

说明:建立数据库连接;创建rs 得到记录集;循环显示记录,rs.Eof 表示记录末,rs.MoveNext 表示移到下一个记录;最后关闭。

五、修改(更新)数据库记录

修改记录的E-mail:

Set conn=Server.CreateObject('ADODB.Connection')

conn.Open 'driver={Microsoft Access Driver (*.mdb)};dbq='Server.MapPath('data.mdb')

ID=1

usermail='ec0705liujuan@163.com'

sql='update data set usermail=''usermail'' where ID='CInt(ID)

conn.Execute(sql)

conn.Close

Set conn=Nothing

说明:建立数据库连接;获取记录ID、新E-mail 字符串;使用update 语句修改记录;conn.Execute 来执行;最后关闭。

如果使记录的查看值加1,则:sql='update data set view=view+1 where ID='CInt(ID)

六、删除数据库记录

删除某一条记录:

Set conn=Server.CreateObject('ADODB.Connection')

conn.Open 'driver={Microsoft Access Driver (*.mdb)};dbq='Server.MapPath('data.mdb')

ID=1

sql='delete from data where ID='CInt(ID)

conn.Execute(sql)

conn.Close

Set conn=Nothing

说明:建立数据库连接;获取记录ID;使用

相关文章:
  • 汇添富纳斯达克100ETF(QDII)净值下跌1.52% 请保持关注
  • 6月5日基金净值:兴全社会价值三年持有混合最新净值1.4421,跌0.08%
  • 6月26日基金净值:华夏中证细分食品饮料主题ETF最新净值0.6826,跌2.12%
  • 7月4日基金净值:易方达恒盛3个月定开混合最新净值1.0526,涨0.11%
  • 4月25日基金净值:广发多因子混合最新净值3.2525,跌1.06%
  • 4月10日基金净值:华夏策略混合最新净值5.005,跌0.24%_基金频道_证券之星
  • 5月4日基金净值:格林泓景债券A最新净值0.9784,跌0.31%
  • 7月3日基金净值:工银灵动价值混合A最新净值0.863,涨0.5%
  • 4月27日基金净值:易方达安心回馈混合A最新净值2.259,涨0.27%
  • 6月26日基金净值:宏利景气领航两年持有混合最新净值0.7364,跌5.55%