新微赢技术网

标题: 请教大家！数据库有相同的就不入库呢？ [打印本页]

作者: ゞ↘Μc总督 时间: 2010-1-15 04:16
标题: 请教大家！数据库有相同的就不入库呢？
请教大家怎么做到数据库有相同的就不写入呢?
dim conn,db,rs,sql,connstr
set conn = server.CreateObject("adodb.connection")
'connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
db = "data.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from house"
rs.open sql,conn,1,3
Rs.AddNew
Rs("name")=trim(fcfangWDO.Rs(0))
Rs("sname")=trim(fcfangWDO.Rs(3))
Rs("price")=trim(fcfangWDO.Rs(2))
Rs("yzbm")=trim(fcfangWDO.Rs(1))
Rs("phone")=trim(fcfangWDO.Rs(4))
Rs("c_id")="98"
Rs.Update

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)