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