Office中国论坛/Access中国论坛

标题: 修改视图的语句怎么写？ [打印本页]

作者: msf 时间: 2004-8-11 23:24
标题: 修改视图的语句怎么写？
  下面的代码是示例数据库“地址簿”里面的代码，用于修改查询，我用的是ADP连接SQL SERVER，需要修改视图，这段代码好像行不通，请问错在哪里？

  Dim db As Database

Dim rs As Recordset

Dim qdf As QueryDef

Dim strSQL As String

Set db = CurrentDb

Set qdf = db.QueryDefs("数据表视图")

strSQL = "Select "

Set rs = Me.RecordsetClone

rs.MoveFirst

Do Until rs.EOF

      If rs!数据项显示 = True Then

         ' Build SQL string

         strSQL = strSQL & rs!数据项名称 & ", "

      End If

      rs.MoveNext

Loop

DoCmd.Close

strSQL = Left(strSQL, Len(strSQL) - 2) & " From 家庭状况"

qdf.SQL = strSQL

DoCmd.OpenQuery qdf.Name

作者: msf 时间: 2004-8-12 04:38
期待中。。。。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)