当数据库中已存在相同值时,更新数据.当没有时插入数据.详细看正文

[zhou__zhou]

如有一个表,三个字段,uid是身份证号,uname是用户姓名,uage是年龄,udata是详细资料
要求实现,当输入数据时,如Uid在表中忆有值的话就更新数据uname,uage,udata
当输入数据时,如表中未有此uid时,插入数据.
等待问题得到解决.

[thinkming]

用不用表单提交呀

[zhou__zhou]

使用表单提交,谢谢您的回复

[bmwangz]

<%
uid=request("uid")
uname=request("uname")
uage=request("uage")
udate=request("udate")

on error resume next

'建立记录集,例子使用access数据库
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("数据库名.mdb")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
conn.Open connstr
set rs=server.createobject("adodb.recordset")
sql="select uid from 数据表名 where uid='"&uid&"'" '假定数据中uid为字符型
rs.open sql,conn,1,2

'判断数据库中是否已有uid
if rs.eof then '不存在
newsql="insert into 数据表名 (uid,uname,uage,udate) values("&uid&","&uname&",'"&uage&"','"&udate&"')"
conn.execute newsql
document.write "数据插入成功。"
then
newsql="update 数据表名 set uname='"&uname&"',uage='"&uage&"',udate='"&udate&"' where uid='"&uid&"'"
conn.execute newsql
document.write "数据更新成功。"
end if
%>
<% conn.close()
set conn= nothing %>

[beiouwolf]

sql_string = "select uid from [database]"
rs.open sql_string,conn

if rs.eof and rs.bof then
update command
else
insert command
end if

[beiouwolf]

if rs.bof and rs.eof then
如果没有查找到记录的话，RS的状态就是同时EOF和BOF

[zhou__zhou]

我的理解意思是if rs.eof then 就使用插入语句
if rs.bof and rs.eof then这句的判断,就使用更新语句
佻这句与另一位的那句好像没什么不同,我不理解.谢谢解释

[zhou__zhou]

引用bmwangz(Jackia)与beiouwolf(beiouwolf) 两位,
两个例都很有用.
只是有一个不明,判断语句两位搞得我有些混了.
if rs.eof then '不存在
insert.......
另:
if rs.eof and rs.bof then
update.....
谢谢您的回复

[beiouwolf]

不对
不应该只判断RS.EOF,要判断空应该同时判断EOF和BOF

if rs.bof and rs.eof then
这是数据库里没有值的情况
else
这是数据库里有值的情况
end if

[zhou__zhou]

感谢您的细心说解,已经明白.