您好,欢迎访问一九零五行业门户网

2012年计算机二级ACCESS的参数化查询(5)

string sql { get { return sql; } set { sql = value; } } int t { get { return t; } set { t = value; } } object v { get { return v; } set { v = value; } } } } //调用方法 //accselect acc = new accselect(); //acc.sql = select * from dtt where
string sql{
get
{
return sql;
}
set
{
sql = value;
}
}
int t
{
get
{
return t;
}
set
{
t = value;
}
}
object v
{
get
{
return v;
}
set
{
v = value;
}
}
}
}
//调用方法
//accselect acc = new accselect();
//acc.sql = select * from dtt where d_id=?;
//acc.t = 10;
//acc.v = 1;
//oledbdatareader oda = acc.getodd(oledbtype.varchar);
//repeater1.datasource = oda;
//repeater1.databind();
function acc_sql(sql,adotype,adodct,strlong,values)
dim connstring,mycmd,myrs,conn
connstring=provider=microsoft.jet.oledb.4.0; data source= & server.mappath(db1.mdb)
set conn = server.createobject(adodb.connection)
conn.connectionstring = connstring
conn.open()
set mycmd = server.createobject(adodb.command)
mycmd.activeconnection=conn
mycmd.commandtext=sql
mycmd.prepared = true
set mypar = mycmd.createparameter(temp,adotype,adodct,strlong,values)
mycmd.parameters.append mypar
set myrs = mycmd.execute
set acc_sql=myrs
end function
’调用方法
’dim rs
’sql=select * from users where id=? order by id
’set rs=acc_sql(sql,3,1,4,1)
’if not rs.eof then
’response.write(rs(1))
’end if
其它类似信息

推荐信息