第17章 VB数据库应用编程
17.1 CommandType属性:
adCmdUnknown,表示RecordSource中的命令类型未知;
adCmdTable表示RecordSource属性的内容来自一张表;
adCmdText表示RecordSource属性的内容来自一个查询语句;
adCmdStoredType表示RecordSource属性的内容来自一个存储过程
17.2 RecordSet的Move方法组中,MovePrevios和MoveNext没有自动检测记录的当前行指针是否移出了结果集边界的功能,需编码实现:
myadodc.RecordSet.MoveNext/MovePrevious
If myadodc.RecordSet.EOF/BOF = True Then
myadodc.RecordSet.MoveLast/MoveFirst
End If
17.3 保存缓冲区中的记录:Update方法;对当前记录指针作一个移动操作
17.4 CancelUpdate方法:应在Update方法之前调用,调用了Update方法之后的修改是不能撤销的;如果没有添加新记录也没有对当前记录做任何修改,调用CancelUpdate会出错。
17.5 Find方法:用于在当前结果集中查找满足条件的记录
myadodc.RecordSet.Find(“查找条件表达式”)
与 RecordSet对象名.Filter “选择表达式” 相似(.Filter=adFilterNone还原)
17.6 更新记录:
mydocdc.RecordSet.Fields(“CustomID”) = Trim(txtCID.Text)
mydocdc.RecordSet.Fields(“Age”) = CInt(txtAge.Text)
mydocdc.RecordSet.Update
17.7 删除记录提示窗口:
Dim res As Integer
res = MsgBox(“确实要删除此行记录吗?”,vbExclamation+vbYesNo+vbDefaultButton2)
If res = vbYes Then
Myadodc.RecordSet.Delete
End If