Udfs

[ang]

Help i need somebody.

I am trying to loop through & set execute permission on some UDFS but I cannot find an option for UDF's.

Private mobjSQL As SQLDMO.SQLServer
Dim objDB As SQLDMO.Database


Private Sub GrantUDF()

Dim objDB As SQLDMO.Database
Dim objUDFS As UserDefinedFunctions
Dim objUDF As SQLDMO.UserDefinedFunction
Dim lngUDFCount As Long
Dim lngProg As Long

For Each objDB In mobjSQL.Databases
If ListItemChecked(Me.lstDatabases, objDB.Name) Then
lngUDFCount = objDB.????????????????????
lngProg = 0
For Each objUDF In objDB.??????????????????
GeneralProgress objUDF.Name, 0, lngUDFCount, lngProg
objUDF.Grant SQLDMOPriv_Execute, "AGDB"
lngProg = lngProg + 1
Next
GeneralProgress "Finished", 0, lngUDFCount, lngProg
End If
Next

End Sub

[russell]

why not just issue sql command

Grant Execute On udfName to agdb

to get all udfs:

select name from sysobjects where type = 'fn'