就业数据资源平台
当前位置:首页 > Access数据库程序设计
ACCESS的参数化查询(五)

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

就业数据资源平台