كيف ننشئ إستعلام بواسطة ado

تفضل اخي الكريم

لا تنسانا من التقييم بارك الله بك

za-CreateQueryAdo.rar

بالتوفيق

جزاك الله خيراً

للفائدة انقل الكود لكم

Option Compare Database
Option Explicit

Function CreateQueryAdo()
    Dim cn As ADODB.Connection
    Dim strSql As String

    strSql = "CREATE VIEW qryEmployees AS SELECT Employees.* FROM Employees;"
    Set cn = CurrentProject.Connection
    cn.Execute strSql
    Set cn = Nothing
End Function

Private Sub CmdCQ_Click()
     Call CreateQueryAdo
     MsgBox "qryEmployees created", vbInformation, "Create"
     DoCmd.OpenQuery "qryEmployees"
End Sub