Question

VB代码看不懂，请教

问题1： 以下代码是什么意思，Ado_Type_WillMove中willmove什么意思 EventReasonEnum什么意思

Private Sub Ado_Type_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal

pRecordset As ADODB.Recordset)

End Sub

问题2：BankId AS 银行编号,BankName AS 银行全称,BShort AS 简称,Place AS 所在地址 这是什么意思，什么用法
Private Sub DataRefresh()
Dim strSearch As String
Dim TmpSource As String
strSearch = ""
If Len(Trim(txtBName)) <> 0 Then
strSearch = " Where BankName Like '%" + Trim(txtBName) + "%'"
End If
TmpSource = "Select BankId AS 银行编号,BankName AS 银行全称,BShort AS 简称,Place AS 所在地址" _
+ " From Banks " + strSearch + " Order By BankId"
Adodc1.ConnectionString = Conn '定义adodc1
Adodc1.RecordSource = TmpSource
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).Width = 1000
DataGrid1.Columns(1).Width = 2400
DataGrid1.Columns(2).Width = 1200
DataGrid1.Columns(3).Width = 2400
End Sub

Answer 1

第一个问题：摘抄自ADO210.chm，你可以自己查看，位于C:\WINDOWS\Help目录中

WillMove 是RecordsetEvent方法，在挂起操作更改 Recordset 中的当前位置前调用。

语法

WillMove adReason, adStatus, pRecordset

参数

adReason EventReasonEnum 值，指定该事件的原因。它的值可以是 adRsnMoveFirst、adRsnMoveLast、adRsnMoveNext、adRsnMovePrevious、adRsnMove 或 adRsnRequery。

pError Error 对象，说明当 adStatus 值为 adStatusErrorsOccurred 时所发生的错误，否则将不对它进行设置。

adStatus EventStatusEnum 状态值。

当调用 WillMove 时，如果引发事件的操作成功，则该参数设置为 adStatusOK。如果该方法无法请求取消挂起的操作，则设置为 adStatusCantDeny。

在 WillMove 返回前，将该参数设置为 adStatusCancel 可请求取消挂起的操作。

pRecordset Recordset 对象。发生该事件所针对的记录集。

说明

WillMove 或 MoveComplete 事件可因下列 Recordset 操作而发生：Open、Move、MoveFirst、MoveLast、MoveNext、MovePrevious、Bookmark、AddNew、Delete、Requery 和 Resync。这些事件可能因下列属性而发生：Filter、Index、AbsolutePage 和 AbsolutePosition。如果子 Recordset 使 Recordset 事件被连接并且父 Recordset 被移动，则也会发生这些事件。

第二个问题：“BankId AS 银行编号”这种用法，是给数据库中的字段BankId起个别名，通常是为了容易区分及避免重复，比如说这个“BankId”字段采用了英文缩写，起了“银行编号”这个别名就很容易明白它的含义了。