Error when i nìmnodify query in access database via ADOX

[sal21]

Code: Select all

Option Explicit
Sub UNO()

Dim cn As Connection, SQL As String
Dim mcat As ADOX.Catalog
Dim mview As ADOX.View
Dim cmd As ADODB.Command

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\...............ABELLE.mdb"
cn.Open

Set mcat = New ADOX.Catalog
Set mcat.ActiveConnection = cn

Set mview = mcat.Views("CANCELLA_STORIA")
Set cmd = mview.Command

cmd.CommandText = "New SQL Statement goes here"

Set mview.Command = cmd

Set mview = Nothing
Set cmd = Nothing
Set mcat = Nothing

cn.Close
Set cn = Nothing

End Sub

whit this code i have erro in attached image.
Why?

the line in question is:
Set mview = mcat.Views("CANCELLA_STORIA")

[HansV]

The Views collection contains only simple select queries. It does *not* include parameter queries, crosstab queries and action queries. Is CANCELLA_STORIA a simple select query?

(And what is nìmnodify ?)

[sal21]

The Views collection contains only simple select queries. It does *not* include parameter queries, crosstab queries and action queries. Is CANCELLA_STORIA a simple select query?

(And what is nìmnodify ?)

delete query:
"DELETE * FROM VIAGGIANTI_TAB WHERE VIAGGIANTI_TAB.INDICE1='20122010'"

[HansV]

A delete query is not part of the Views collection, but of the Procedures collection. So change

Dim mview As ADOX.View

to

Dim mview As ADOX.Procedure

and change

Set mview = mcat.Views("CANCELLA_STORIA")

to

Set mview = mcat.Procedures("CANCELLA_STORIA")

[sal21]

A delete query is not part of the Views collection, but of the Procedures collection. So change

Dim mview As ADOX.View

to

Dim mview As ADOX.Procedure

and change

Set mview = mcat.Views("CANCELLA_STORIA")

to

Set mview = mcat.Procedures("CANCELLA_STORIA")

GENIUS!

[sal21]

A delete query is not part of the Views collection, but of the Procedures collection. So change

Dim mview As ADOX.View

to

Dim mview As ADOX.Procedure

and change

Set mview = mcat.Views("CANCELLA_STORIA")

to

Set mview = mcat.Procedures("CANCELLA_STORIA")

OK...
But is possible to use this line to exc eute the new query edited?
I have used this line but have error.
CN.Execute "CANCELLA_STORIA", CONTA, adCmdText Or adExecuteNoRecords

i know the way rs.open "CANCELLA_STORIA", ecc but i dont need to have recorset, i need to delete

[HansV]

Use

CN.Execute "CANCELLA_STORIA", CONTA, adCmdStoredProc Or adExecuteNoRecords