解讀ACCESS的參數化查詢(3)_Access數據庫教程

推薦：如何在 Access 里使用查詢建立 存儲過程/視圖, 并使用 ASP 執行
摘要: 本文演示了 使用 Access查詢 構造類似于 MSSQL 存儲過程的功能, 并在 ASP 中操作插入數據,顯示數據功能. 目錄: 1. 在 Access 查詢里建表, 名 tt 2. 在 Access 查詢里新建查詢, 內容為:... 3. 在 ASP 里使用 tt_insertParm 添加10條記錄到 表tt 3.1 構造

/// 構造函數，傳遞ACC參數查詢語句
/// </summary>
/// <param name="strsql">strsql字符型</param>
public accselect(string strsql)
{
sql = strsql;
}
/// <summary>
/// 構造函數，傳遞ACC參數查詢語句
/// </summary>
/// <param name="strsql">參數查詢語句</param>
/// <param name="total">字節數</param>
public accselect(string strsql, int total)
{
sql = strsql;
t = total;
}
/// <summary>
/// 構造函數
/// </summary>
/// <param name="strsql">參數查詢語句</param>
/// <param name="total">字節數</param>
/// <param name="value">OBJECT值</param>
public accselect(string strsql, int total, object value)
{
sql = strsql;
t = total;
v = value;
}
/// <summary>
/// getOdd方法返回OleDbDataReader
/// </summary>
/// <param name="odt">定義OleDbType類型</param>
/// <returns></returns>
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
 

分享：如何設置Access項目中檢索的記錄數
在使用 Microsoft Access 項目的窗體或數據表中的數據時，為了提高性能，可以設置從 SQL Server 數據庫下載的最大記錄數。 1.在“導航”模式中打開數據表或窗體。 2.執行下列操作之一： 從“記錄”菜單中選擇“最大記錄數”。 單擊導航按鈕右側的“最大記錄