通过ASP与ACCESS数据库建立连接（附源码）(2)
（三【sān】）关键部【guān jiàn bù】分【fèn】：建立与【jiàn lì yǔ】🏝数据库【shù jù kù】🙎的【de】联系并将表【bìng jiāng biǎo】🤘单中收🈺集到的【jí dào de】信息添😴加到ACCESS数据库【shù jù kù】🙎中。
ASP代码放在【zài】〈%和%>之间。
<%
CompanyName = Request("CompanyName")
CName = Request("CName")
City = Request("City")
Tel = Request("Tel")
以上🤔，首先取得表单中填写的数据【de shù jù】⬅，使用【shǐ yòng】📓ASP的【de】Request对象【duì xiàng】非🚂常容易可以实😥现数据【jù】🕰的收集【de shōu jí】🐙。双引号【shuāng yǐn hào】中的就【zhōng de jiù】👟是上一【shì shàng yī】💷步建立【jiàn lì】💤的各个【de gè gè】项目的【de】名字【míng zì】（NAME）。所以今后为每🤟个项目起名字【míng zì】🌎是个好🐍习惯，尽管有时候并不一定【bú yī dìng】用【yòng】得到。这样取🎍得的数据【de shù jù】⬅就保存在【zài】等💞号坐侧【hào zuò cè】的【de】变💴量中了【liàng zhōng le】🔣。
If CompanyName = "" Or CName = "" Or City = "" Or Tel = "" Then
'Response.Write "<html><body><center><font size=5>请将资料填写完整【wán zhěng】。</font></center></body></html>"
Response.Redirect "error.htm"
Response.End
End If
这里是【zhè lǐ shì】检测各个项目是否输入了东📨西【xī】👐，如果为空则不💁往下继续执行，显示错🍋误信息。注意🃏：你可以🚺使用【shǐ yòng】两🤗种方法。我都列【wǒ dōu liè】出了【chū le】🔣。方法一【fāng fǎ yī】🏳：使用【shǐ yòng】📓Response.Write方法写【fāng fǎ xiě】🍍一个出错页面👷，类似于javascripts的【de】document.write写法🔢，只是🌊ASP使用【shǐ yòng】📓Response.write罢了🔣。方法二📕：使用【shǐ yòng】📓Response.Redirect方法导向出错【xiàng chū cuò】页面👷error.htm。我在【zài】方法一【fāng fǎ yī】🏳的【de】代码前加上【qián jiā shàng】单📠引号表【yǐn hào biǎo】示注释。（ASP中表示注释用【zhù shì yòng】单引号'）。
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
（1）建立【jiàn lì】Connection对象【duì xiàng】🏟：dbconnection，建立【jiàn lì】一个连接【gè lián jiē】🥅(Connection)是数据【shì shù jù】库【kù】🙎存取的【de】开始【kāi shǐ】。我们使【wǒ men shǐ】用【yòng】📓ASP的【de】内建对象【duì xiàng】🏟方法Server.Createobject建立与【jiàn lì yǔ】🏝数据库【shù jù kù】🙎的连接【de lián jiē】。ADODB是ASP的数据【de shù jù】⬅库【kù】存取🔠组件💧，不必担🚐心只要有ASP就有它🔏了🔣，是内置的【de】。
（2）使用【shǐ yòng】📓dbconnection.open方法打开数据库【shù jù kù】🙎customer.mdb。driver参数语法🎒： driver={Microsoft Access Driver (*.mdb)}必须这么写。告诉系统使用【shǐ yòng】📓ACCESS ODBC驱动处【qū dòng chù】理💐。dbq参数用【cān shù yòng】来指定【lái zhǐ dìng】打开的【dǎ kāi de】数据【jù】⬅库【kù】✏文件，它必须🕢是完整【wán zhěng】🏰的【de】路径【jìng】。例如"c:inetpubwwwrootcustomercustomer.mdb"，我们使【wǒ men shǐ】用【yòng】📓Server.MapPath的【de】方法取得数【qǔ dé shù】据库【jù kù】🙎的【de】完整【wán zhěng】路🥐径【jìng】。
Set rs = Server.CreateObject("ADODB.Recordset")
建立【jiàn lì】Recordset对象【duì xiàng】🏟rs。Connection仅仅是建立【jiàn lì】了🛍与数据库【shù jù kù】🙎间的连【jiān de lián】接【jiē】，要存取数据【jù】还🏹应该再建立【jiàn lì】Recordset对象【duì xiàng】🏟。
rs.Open "客户【kè hù】⛅", dbconnection, adOpenDynamic, 3
打开数据库【shù jù kù】🙎中的【de】表"客户【kè hù】⛅"（客户【kè hù】⛅是表名）。 语法🎒：
rs.open 数据【jù】表名或【míng huò】SQL指令，已经建立【jiàn lì】的【de】Connection对象【duì xiàng】🏟（这里是【zhè lǐ shì】dbconnection）, 锁定类【suǒ dìng lèi】型🎊
rs.AddNew
rs("公司名【gōng sī míng】🍈称【chēng】⏪") = CompanyName
rs("联络人🚠姓名【xìng míng】") = CName
rs("所在城【suǒ zài chéng】市") = City
rs("电话号码") = Tel
rs.Update
用【yòng】AddNew向数据库【shù jù kù】🙎请求添加数据【jù】。最后用【yòng】Update写入【xiě rù】。注意🃏：等号右侧的【de】变💴量保存【liàng bǎo cún】着用【yòng】Request取得的【de】👳表单数👲据【jù】。双引号【shuāng yǐn hào】内的【de】就🚙是数据【shì shù jù】库【kù】🙎的【de】字段，应该与🖤数据库【shù jù kù】🙎的【de】一致啊♋。否则会🏿出错的【chū cuò de】。这样变🖥量内的数据【de shù jù】⬅就写入【xiě rù】了🛵数据库【shù jù kù】🙎对应的【de】字段内了🔣。
Response.Write "<html><body><center><font size=5>祝贺【zhù hè】，您的数据【de shù jù】⬅已经添加进数【jiā jìn shù】据库【jù kù】🙎了🔣！<p>"
Response.Write "<a href='viewdatabase.asp'>查看数【chá kàn shù】据【jù】🐛</a>"
Response.Write "</font></center></body></html>"
写入【xiě rù】成👹功后显【gōng hòu xiǎn】示祝贺【shì zhù hè】信息并建立【jiàn lì】查看数【chá kàn shù】据【jù】🐛库【kù】记录🌀的连接【de lián jiē】。
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
关键词：ASP,ACCESS,数据库
阅读本文后您有什么感想? 已有 人给出评价!
- 1
- 1
- 1
- 1
- 1
- 1
