dim conn
dim connstr
dim db
dim rs
dim mssql
db="upload.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=localhost;UID=sa;PWD=;database=club"
conn.Open connstr
set rs=server.createobject("adodb.recordset")
mssql="select * from tablename where id="&id&""
rs.open mssql,conn,3,3
rs("aaa")=aaa
rs("bbb")=bbb
rs.update()
rs.close
set rs=nothing
conn.close
set conn=nothing
不行呀,我的代码如下:
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from dalb where yhm='"&yhm&"' order by id asc"
rs.open Sql,Conn,1,3
if rs.recordcount<>0 then
rs("yhm")=yhm
rs("mima")=mima
rs.update
总是出错!
跟读ACCESS数据库没有什么区别
set rs=server.createobject("adodb.recordset")
Sql="select * from mail_list where Member_id="&Member_id&" order by id desc"
rs.Open SQL,conn,1,3