我考网社区 › 计算机等级考试 › ACCESS的参数化查询（五）

会计考友 发表于 2012-7-31 22:29:16

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;
　　}
　　}
　　}

　　}

会计考友 发表于 2012-7-31 22:29:17

ACCESS的参数化查询（五）

</p>　　//调用方法
　　//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

查看完整版本: ACCESS的参数化查询（五）