a我考网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 182|回复: 1

[考试试题] ACCESS的参数化查询(五)

[复制链接]
发表于 2012-7-31 22:29:16 | 显示全部楼层 |阅读模式
string Sql   {) i; z) A8 ~3 h3 w2 |
  get/ R! ?: F# D; O2 N
  {
+ v) S$ W) B( T( Z  `) G* s2 F) {$ V( x  A7 h
  return sql;
. J+ X& X7 g# ]$ M/ j! Z  }% E4 B% r- O. J! \& V. ~
  set
5 r5 X5 p# L; f* \* O  {
* l. q9 b$ ~; _0 t$ b  sql = value;
9 [! l; |1 V+ O3 n9 L- E  }. \6 s3 J/ e( R( A. D, D
  }
* _" c4 y+ G' C- i* O  int T: }* o/ e. B* m& ~
  {
) L) M1 Z7 @) @8 k  get
# e! B+ p4 C/ B8 L  {
. ?7 E# M1 \/ ?! Y9 P4 [$ T  return t;
$ P9 c0 P3 _- v! r5 w0 D2 j0 w/ [  }7 s. K/ s. n4 ^
  set% T1 I, V3 Z7 ]7 D/ }% |2 Y
  {7 e5 b; `2 h' O, s# c  [
  t = value;
% J( H2 w+ ^0 V1 `& D1 w& u& ~  }. v& U, x; ?- S4 w+ O7 c
  }
, L0 f+ Q5 g% u  object V
: K- j- u- f1 P8 s9 B; R6 A2 r7 j4 u  {/ }3 p$ T6 D" _5 D9 x2 F
  get2 h" ]# _" ^/ T
  {
9 G! v2 c: C) ^/ ]+ J2 s  return v;
& E/ c5 F5 X0 v8 y  s, w' r( L7 ]  O  }
! J  E9 p' |3 o" W* }" }  set
/ i' i- D2 P- q  {
- s2 b) o( |( D! @  v = value;& Q" s$ p3 m* j0 e6 S3 u, @  U5 z
  }2 n3 {8 O" d- l
  }
" {( a% m$ `7 n5 k+ H  }0 K3 O/ z) U; k

: f: |3 Q# C; ]- g0 x6 L1 X  }
回复

使用道具 举报

 楼主| 发表于 2012-7-31 22:29:17 | 显示全部楼层

ACCESS的参数化查询(五)

</p>  //调用方法
2 x0 ~9 m4 w) w( m4 h5 o, C1 {  //accselect acc = new accselect();. r; J( O8 Q# M- a  y3 q
  //acc.sql = "select * from dtt where d_id=?";
% p6 W0 W: E' ]+ S# ~- }  //acc.t = 10;
( w: K9 i( j  G$ O& r  //acc.v = 1;# C8 l2 S* k  a4 u( o
  //OleDbDataReader oda = acc.getOdd(OleDbType.VarChar);1 H& l: n# {/ c; n* L1 @5 f
  //Repeater1.DataSource = oda;  S8 o7 D' t; M2 D# P
  //Repeater1.DataBind();
1 D, J6 O2 c3 @  ]! H  function acc_sql(sql,adotype,adodct,strlong,values)+ s. v! L: Y5 A2 _9 g
  dim connstring,mycmd,myrs,conn1 @5 j; ^( Z: d; \
  connString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb"): M9 O8 E: S5 q- N8 O& ~
  set conn = Server.CreateObject("Adodb.Connection")
, H& s, I4 |, x  V9 N% J+ }  conn.ConnectionString = connString
! c8 `8 F! l) Z; n! J  U# \  conn.open()* B4 k, I1 n! I
  set mycmd = Server.CreateObject("ADODB.Command")
0 @  ^, w; U1 g" j/ v  mycmd.ActiveConnection=conn
: f, s0 ?7 l) Y2 o. `  X  O/ S  mycmd.CommandText=sql
, p$ e8 n6 W9 d$ |/ v! Q9 R; h  mycmd.Prepared = true( z! A8 Y1 l# g6 N2 n
  set mypar = mycmd.CreateParameter("temp",adotype,adodct,strlong,values)
; B8 G) o+ Y& w  mycmd.Parameters.Append mypar
8 X3 D8 L. M2 K, m8 t% g* U7 e  set myrs = mycmd.Execute; n. d2 h! r5 b$ u5 z; m* x- [) z
  set acc_sql=myrs5 t4 o* r3 w8 M! w3 _$ ^  S
  end function
6 |  R2 z7 K7 L+ C  ’调用方法
% x4 X, V. U& S) S1 j/ d& x4 V  ’dim rs
8 P/ ~1 N$ K7 E  ’sql="select * from users where id=? order by id"  P1 c* f5 O0 Y* M) \
  ’set rs=acc_sql(sql,3,1,4,1)3 o6 K& _2 [4 j: V6 R0 H
  ’if not rs.eof then
- c- H( b2 N$ V' `" E  ’response.Write(rs(1))
  }( N6 w. r. b% `  ’end if
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|Woexam.Com ( 湘ICP备18023104号 )

GMT+8, 2024-5-8 00:25 , Processed in 0.271683 second(s), 23 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表