Ciao
>mi dà errore in quanto non riconosce il metodo ExecuteScalar()
In vbscript non esiste il metodo ExecuteScalar. Puoi usare solo il metodo Execute.
Eccoti un esempio:
dim objConn
set objConn = CreateObject("ADODB.Connection")
' apro la connessione
objConn.ConnectionString = TuaConnectionString
objConn.Open()
dim objCmd
set objCmd = CreateObject("ADODB.Command")
set objCmd.ActiveConnection = objConn
objCmd.CommandText = "SELECT 1 as Conteggio"
dim objRs
set objRs = objCmd.Execute
If Not objRs.Eof Then
msgbox(objRs("Conteggio"))
End If
objRs.close()
' disalloco
set objCmd.ActiveConnection = nothing
set objCmd = nothing
set objRs = nothing
objConn.Close()
set objConn = nothing
--
Alessandro Alpi | SQL Server MVP
http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi
http://italy.mvps.org