asp.netとaspの下でACCESSのパラメーターは検索を溶かします。

7669 ワード

今日はACCESSパラメータ化で調べたいくつかの方法と経験を共有します。
みんなに啓発してほしいです。書いているところがあります。よろしくお願いします。
AS.NET OleDb Commandのnewで OleDb Parameeter作成パラメータ商品クエリ
ASP用CommandのCreateParameeter メソッドのパラメータ化クエリの作成
(SQL貯蔵プロセスクエリもこの方法で構築されている)
ASP.NET C〓〓文法
OleDb Parameeter parm = new OleDb Parameeter(Name、 Type ディレクション Size Value;;
(実際には七重の重さがあります。具体的にはVSS.netで見られます)
パラメータ
Name オプション、文字列、代表 パラメータ オブジェクト名
Type オプション、ロング整数値、指定 パラメータ オブジェクトデータの種類。
ディレクション オプション、ロング整数値、指定 パラメータ オブジェクトの種類
Size オプションとして、整数値を指定し、パラメータ値の最大長さ(文字またはバイト数単位)を指定します。
Value オプション パラメータ オブジェクトの値
以下は実例で、news表のニュースを調べます。 
 
  
 sql="select * from newss where username=? order by id" 
 // ?  
 OleDbConnection conn = new OleDbConnection(connString); 
 OleDbCommand cmd = new OleDbCommand(sql,conn);  
 OleDbParameter parm = new OleDbParameter("temp",OleDbType.VarChar, 50); 
 //temp Parameter ,OleDbType.VarChar , 50 
 parm.Direction = ParameterDirection.Input; 
 //  
 cmd.Parameters.Add(parm); 
 cmd.Parameters["temp"].Value = "tsing"; 
 // tsing, cmd.Parameters[0] 
 conn.Open(); 
 cmd.ExecuteReader(); 
ASP VSCRIPT文法
セット parameter = command.reate Parameeter (Name、 Type ディレクション Size Value.
パラメータ同上
以下は実例で、news表のニュースを調べます。
 ------------------------------------------------------ 
 
 
  
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",129,1,50,"tsing") 
 mycmd.Parameters.Append mypar 
 set myrs = mycmd.Execute 
上の基本と同じではないですが、aspはパラメータの表現上で違っています。
129はadCharであり、1は入力パラメータを示す(実はデフォルト値)である。
みなさん、MICROFTのADOVB.Incを参照してください。
 
  
 '---- ParameterDirectionEnum Values ----  
 Const adParamUnknown = 0  
 Const adParamInput = 1  
 Const adParamOutput = 2  
 Const adParamInputOutput = 3  
 Const adParamReturnValue = 4  
'---- DataTypeEnum Values ----  
 Const adEmpty = 0  
 Const adTinyInt = 16  
 Const adSmallInt = 2  
 Const adInteger = 3  
 Const adBigInt = 20  
 Const adUnsignedTinyInt = 17  
 Const adUnsignedSmallInt = 18  
 Const adUnsignedInt = 19  
 Const adUnsignedBigInt = 21  
 Const adSingle = 4  
 Const adDouble = 5  
 Const adCurrency = 6  
 Const adDecimal = 14  
 Const adNumeric = 131  
 Const adBoolean = 11  
 Const adError = 10  
 Const adUserDefined = 132  
 Const adVariant = 12  
 Const adIDispatch = 9  
 Const adIUnknown = 13  
 Const adGUID = 72  
 Const adDate = 7  
 Const adDBDate = 133  
 Const adDBTime = 134  
 Const adDBTimeStamp = 135  
 Const adBSTR = 8  
 Const adChar = 129  
 Const adVarChar = 200  
 Const adLongVarChar = 201  
 Const adWChar = 130  
 Const adVarWChar = 202  
 Const adLongVarWChar = 203  
 Const adBinary = 128  
 Const adVarBinary = 204  
 Const adLongVarBinary = 205  
私の書いたC〓〓〓類を付け加えて、VSCRIPT関数と、みんなに対して助けがあることを望みます。
 
  
using System; 
using System.Data; 
using System.Configuration; 
using System.Web; 
using System.Data.OleDb; 
namespace acc_select 

 ///  
 /// accselect   
 /// 
 
 public class accselect 
 { 
 //"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\dq\db1.mdb" 
 private string conn = ConfigurationManager.ConnectionStrings["tsingConnectionString"].ToString(); 
 public string sql = string.Empty; 
 public int t = 4; 
 public object v = null; 
 public accselect() 
 { 
 } 
 ///  
 ///  , ACC  
 /// 
 
 /// strsql  
 public accselect(string strsql) 
 { 
 sql = strsql; 
 } 
 ///  
 ///  , ACC  
 /// 
 
 ///   
 ///   
 public accselect(string strsql, int total) 
 { 
 sql = strsql; 
 t = total; 
 } 
 ///  
 ///   
 /// 
 
 ///   
 ///   
 /// OBJECT  
 public accselect(string strsql, int total, object value) 
 { 
 sql = strsql; 
 t = total; 
 v = value; 
 } 
 ///  
 /// 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(); 
 return oda; 
 } 
 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