ADP中如何用VBA修改一个已存在的视图？

珲　发表于：2017-10-31 10:30:29 　

ADP已连接SQL SERVER，怎么用代码修改已存在的视图？

老师帮忙改一下：

    Dim db As Database
    Dim qry As QueryDef
    Set db = CurrentDb
    Set qry = CurrentDb.QueryDefs("dbo.检验结果查询")
    qry.SQL = "SELECT * FROM dbo.检验结果"
    qry.Close
    Set qry = Nothing

这个在本地的MDB数据中好像正常

Top

宏鹏发表于：2017-10-31 11:26:58

用Access VBA代码进入查询SQL视图[Access软件网]
http://www.accessoft.com/article-show.asp?id=9516

Top

MDZZ 发表于：2017-10-31 11:30:16

你贴出mdb 的代码只是修改access 里面查询的sql语句又不会修改到sql 里面的视图的sql语句。。

Top

珲发表于：2017-10-31 11:31:00

我不是要打开这个，我是要直接修改视图，然后执行查询

Top

珲发表于：2017-10-31 11:33:18

是的，我要的效果就是修改SQL SERVER中的视图的语句

我贴的代码只能修改本地MDB数据的查询语句

Top

MDZZ 发表于：2017-10-31 13:48:51

Sub ces()
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=sqloledb;Server=PC;Database=IMStest;Uid=sa;Pwd=123; "
cnn.Execute "ALTER VIEW View_1 AS select * from 物性表"
cnn.Close
End Sub

mdb中这样是可以改的 adp 的话要试下

Top

珲发表于：2017-10-31 17:56:00

谢谢楼上

可以了

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

ADP中如何用VBA修改一个已存在的视图？