ну а как перезаписать
strSQL="SELECT .... FROM .... (и т.д.)"
Dim qdf As QueryDef
Dim query As QueryDef
CurrentDb.QueryDefs.Refresh
For Each qdf In CurrentDb.QueryDefs
If qdf.name = "Запрос" Then
CurrentDb.QueryDefs.Delete qdf.name
End If
Next qdf
Set query = CurrentDb.CreateQueryDef("Запрос", strSQL)
а через ALERT view - дык ругается, говорит ошибка в ALERT TABLe
cn.Execute "CREATE VIEW MyView AS SELECT ID FROM T"
cn.Execute "DROP VIEW MyView"
cn.Execute "CREATE VIEW MyView AS SELECT ID, AA FROM T"
он на рус. названия полей ругается
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0