2012年计算机二级ACCESS的参数化查询（2）

会计考友

以下是实例，查询news表中所有tsing发表的新闻 　　------------------------------------------------------
# J9 N( r) \% e2 R　　et conn = Server.CreateObject("Adodb.Connection")
5 E5 O" U6 H. l4 H6 e6 b8 h　　conn.ConnectionString = connString
　　conn.open()
; U0 V# x1 d3 l; E4 m$ Z  X# k　　set mycmd = Server.CreateObject("ADODB.Command")
' b4 s4 |* N8 [) _: [　　mycmd.ActiveConnection=conn
　　mycmd.CommandText=sql
　　mycmd.Prepared = true
4 f8 h6 \- d; l4 ?2 ]　　set mypar = mycmd.CreateParameter("temp",129,1,50,"tsing")
  v: k1 X% W' Z$ J; X6 A7 k　　mycmd.Parameters.Append mypar
　　set myrs = mycmd.Execute
9 ?$ H4 P# m* _, j7 ?　　与上面基本相同不同的地方法是asp在对参数的表达上面不同
$ N5 ~9 W$ k" l* [+ v+ k　　129为adChar，1就是指示输入参数(是其实是默认值)
　　大家请参阅MICROSOFT的ADOVB.Inc：
　　’---- ParameterDirectionEnum Values ----
　　Const adParamUnknown = 0
' B. f- B1 V/ }! c' U　　Const adParamInput = 1
　　Const adParamOutput = 2
　　Const adParamInputOutput = 3
1 S7 O4 _& o( d+ ~0 m" `: \' k4 _　　Const adParamReturnValue = 4
# b* t" I  z) P( v( |
8 q" P$ f1 X/ t9 `" n3 S3 p# s　　’---- DataTypeEnum Values ----

会计考友

</p>　　Const adEmpty = 0
　　Const adTinyInt = 16
) S# U3 [. Z- t' Y5 G" A; r4 O' d: K, S　　Const adSmallInt = 2
. u  m0 e9 Z4 a# B: {  O5 k　　Const adInteger = 3
　　Const adBigInt = 20
* Y, g7 d, l4 K) @* u+ X; ]　　Const adUnsignedTinyInt = 17
　　Const adUnsignedSmallInt = 18
　　Const adUnsignedInt = 19
　　Const adUnsignedBigInt = 21
　　Const adSingle = 4
% K6 y# F* C" a' ?% A　　Const adDouble = 5
) R4 s" t* p! `# @8 b$ ?　　Const adCurrency = 6
3 A; G/ T; ]& ^, s0 q　　Const adDecimal = 14
$ X$ m) w, l# y# ^  |4 L　　Const adNumeric = 131
　　Const adBoolean = 11
　　Const adError = 10
　　Const adUserDefined = 132
4 P. O4 g% w7 x$ ~　　Const adVariant = 12
% l5 Z6 r! T) P( Z+ z　　Const adIDispatch = 9
  ?3 X  S9 t" D5 F, H' _, l: K$ w　　Const adIUnknown = 13
　　Const adGUID = 72
4 m+ I4 R! R3 I! H) w: [　　Const adDate = 7
　　Const adDBDate = 133
& u% J, h8 w& m# ?% u　　Const adDBTime = 134
" ?, A% h+ Z: P+ Z$ s: G　　Const adDBTimeStamp = 135
, r: P, Y' U% ^! w: k　　Const adBSTR = 8
　　Const adChar = 129
& I) B5 J1 ?4 f1 Y' z8 g6 E　　Const adVarChar = 200
　　Const adLongVarChar = 201
2 X5 ?4 S( Y1 T5 E6 z　　Const adWChar = 130
  j+ l3 Q3 m4 d3 d5 r8 v# s& u　　Const adVarWChar = 202
　　Const adLongVarWChar = 203
5 K2 t! R: B2 k, h+ j　　Const adBinary = 128
　　Const adVarBinary = 204
　　Const adLongVarBinary = 205