asp.net および asp_javascript スキルでの ACCESS のパラメーター化されたクエリ

システムを使用; 
System.Data を使用; 
System.Configuration を使用; 
System.Web を使用; 
System.Data.OleDb を使用; 
namespace acc_select
{
///

 
/// accselect 的摘要说明
///

 
public class accselect
{
//"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:dqdb1.mdb"
private string conn = ConfigurationManager.ConnectionStrings["tsingConnectionString"] .ToString(); 
public string sql = string.Empty; 
public int t = 4; 
パブリック オブジェクト v = null; 
public accselect()
{
}
///  
/// 构造関数数，传递ACCパラメータ查询语句
///  
/// strsql文字型 
public accselect(string strsql)
{
sql = strsql; 
}
///  
/// 构造関数数，传递ACCパラメータ查询语句
///  
/// パラメータ查询语句 
/// 字节数 
public accselect(string strsql, int total)
{
sql = strsql; 
t = 合計; 
}
///  
/// 构造関数数
///  
/// パラメータ查询语句 
/// 字节数 
/// OBJECT值 
public accselect(string strsql, int total, object value)
{
sql = strsql; 
t = 合計; 
v = 値; 
}
///  
/// getOdd メソッドが OleDbDataReader を返す
///  
/// 定义OleDbType类型 
///  
public OleDbDataReader getOdd(OleDbType odt)
{
OleDbConnection conns = new OleDbConnection(this.conn); 
OleDbCommand cmd = new OleDbCommand(this.sql, conns); 
OleDbParameter parm = new OleDbParameter("temp", odt, this.t); 
parm.Direction = ParameterDirection.Input; 
cmd.Parameters.Add(parm); 
cmd.Parameters[0].Value = this.v; 
conns.Open(); 
OleDbDataReader oda = cmd.ExecuteReader(); 
cmd.Dispose(); 
オーダを返します。 
}
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("Adod​​b.Connection")
conn.ConnectionString = connString
conn.open()
set mycmd = Server.CreateObject("ADODB.Command")
mycmd.ActiveConnection =conn
mycmd.CommandText=sql
mycmd.Prepared = true 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