第17章 VB数据库应用编程
1 M8 q; T+ V+ n+ [17.1 CommandType属性:
% _7 |1 r6 s7 J7 e+ \1 FadCmdUnknown,表示RecordSource中的命令类型未知;
- q2 F/ n( b5 ?8 h# i8 c+ k, [adCmdTable表示RecordSource属性的内容来自一张表;' l4 \0 W6 x7 \" z8 L. U8 j
adCmdText表示RecordSource属性的内容来自一个查询语句;
) r5 Y0 o! h$ Y0 WadCmdStoredType表示RecordSource属性的内容来自一个存储过程
# V' N) G% ]% v" E17.2 RecordSet的Move方法组中,MovePrevios和MoveNext没有自动检测记录的当前行指针是否移出了结果集边界的功能,需编码实现:
* p4 Y' y. t9 H7 i% z! Emyadodc.RecordSet.MoveNext/MovePrevious
5 `* j# R& V, _/ x( _If myadodc.RecordSet.EOF/BOF = True Then
* H% l/ |; B4 F2 ]' y1 i6 lmyadodc.RecordSet.MoveLast/MoveFirst
[( w# n8 l1 K* DEnd If2 h( W& `; }3 n' D0 b. \% m
17.3 保存缓冲区中的记录:Update方法;对当前记录指针作一个移动操作
% f# S/ _5 k$ b# j: \" A3 Y( D17.4 CancelUpdate方法:应在Update方法之前调用,调用了Update方法之后的修改是不能撤销的;如果没有添加新记录也没有对当前记录做任何修改,调用CancelUpdate会出错。
$ {; A& |& b" v' ?17.5 Find方法:用于在当前结果集中查找满足条件的记录
- V4 y: l- n3 N& l8 E; q, g. Cmyadodc.RecordSet.Find(“查找条件表达式”)
; X0 Q- |7 s# D% t) e( W8 n+ U与 RecordSet对象名.Filter “选择表达式” 相似(.Filter=adFilterNone还原)
( A( j1 E- M/ S9 B9 t17.6 更新记录:- T/ j; g2 ~! x( O
mydocdc.RecordSet.Fields(“CustomID”) = Trim(txtCID.Text)
; ?( W. R3 z2 k* Amydocdc.RecordSet.Fields(“Age”) = CInt(txtAge.Text)3 D) u" u6 C$ r9 O8 X( I
mydocdc.RecordSet.Update
0 f! ?2 {- x! i$ _17.7 删除记录提示窗口:% P9 u4 L8 }. q& o8 e& M8 f
Dim res As Integer: T( R' N+ u, Y J, ]
res = MsgBox(“确实要删除此行记录吗?”,vbExclamation+vbYesNo+vbDefaultButton2) N% V( P8 }/ L+ K* F* N
If res = vbYes Then; H& r* f+ z; x- G
Myadodc.RecordSet.Delete
) f4 Z" m7 k" |; L, uEnd If |