主观

下列过程的功能是:将当前数据库文件中“学生表”的所有学生“年龄”加1。请在程序横线处填写适当的语句,使程序实现所需的功能。

 Private Sub SetAgePlus2_Click ( )

 Dim cn As New ADODB.Connection

 Dim rs As New ADODB.Recordset

 Dim fd As ADODB.Field 

 Dim strConnect As String 

 Dim strSQL As String

 Set cn = CurrentProject.Connection 

 strSQL= "Select 年龄 from 学生表"

 rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText 

 Set fd = rs.Fields("年龄") 

 Do While Not rs.EOF

 fd = _____【14】_____

 rs.Update

 rs. _____【15】_____

 Loop 

 rs.Close 

 cn.Close 

 Set rs = Nothing 

 Set cn = Nothing 

 End Sub

参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服