Visualizzazione dei risultati da 1 a 5 su 5

Discussione: ASP e macro

  1. #1
    Utente di HTML.it
    Registrato dal
    Jun 2002
    Messaggi
    585

    ASP e macro

    Ciao a Tutti,

    avevo gia' postato il problema a settembre dell' anno scorso... ora mi si ripresenta in questa veste:

    ho la mia pagina macro.asp che a me utente sul server funziona:

    <%@ Language=VBScript %>
    <%
    Option Explicit
    Dim access
    '
    '
    set access = server.createobject("Access.Application")
    access.visible = false
    'access.opencurrentdatabase "c:\inetpub\wwwroot\fpdb\ri_wkp.mdb"
    access.opencurrentdatabase "\\nome_server\fpdb\ri_wkp.mdb"
    access.docmd.runmacro "macro_update_Mp"
    access.quit
    Response.Write "Your macro has been run!"
    '
    '
    %>

    <HTML>
    <BODY BACKGROUND="../images/sfondo.gif">
    testo
    </BODY>
    </HTML>


    Mentre alla mia collega, che risiede su un altro PC da' il seguente errore:

    Server object, ASP 0178 (0x80070005)
    The call to Server.CreateObject failed while checking permissions. Access is denied to this object
    .

    Ho dedicato tante ore in internet x vedere di risolvere il problema:
    ho cambiato i permessi in windows\system32\msvbvm60.dll

    ma non ho risolto niente:

    In Strumenti di amministrazione / Servizi Componenti sono andato su Component Services / Computer / Risorse del Computer / Proprieta' e nella label Protezione COM ho consentito tuto cio' che era possibile ...

    non so che altro fare ...

    Grazie mille in anticipo x l' aiuto !!!!


    P.S. Ho Windows XP e IIS 5.1 con database access 2003 e IE6

  2. #2
    Utente di HTML.it
    Registrato dal
    Jun 2002
    Messaggi
    585
    Ho anche lanciato dcomcnfg

    su Component Services / Computer /Risorse del Computer / Proprieta',

    andando sotto Potezione COM / Autorizzazioni di Accesso / Modifica predefinite:

    ho creato la voce INTERACTIVE con tutti i permessi, e IUS_nome_server con tutti i permessi...

    poi sotto Protezione COM / Autorizzazioni di esecuzione e attivazione / Modifica Predefinite ho creato l' account Internet Guest: IUS_nome_server con tutti i permessi

    Ho fatto reboot

    Ma non ho ottenuto niente ....

  3. #3
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,133
    - Il percorso della pagina macro.asp come?
    - La tua collega ha i tuoi stessi (identici) permessi?
    - I due clinet (tuo pc e pc collega) sono uguali come configurazioni e caratteristiche?
    - Ma questa macro cosa fa?
    - Hai valutato di ricrearla in asp?
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  4. #4
    Utente di HTML.it
    Registrato dal
    Jun 2002
    Messaggi
    585
    Ciao Andrea,

    Grazie x il tuo intervento in quanto mi sono perso ...

    il mio PC e' un server, quindi ho su IIS
    la mia collega e' un client, lavora su un altro PC e non ha IIS.

    la macro che ho creato esegue una query di update che e' la seguente:

    UPDATE t_proj_2012 INNER JOIN t_mrg ON t_proj_2012.Numero=t_mrg.Numero SET t_proj_2012.Inizio = t_mrg.Inizio, t_proj_2012.Fine = t_mrg.Fine, t_proj_2012.Richiedente = t_mrg.Richiedente, t_proj_2012.Ore = t_mrg.Ore;


    Ho provato in tutti i modi con il codice postato all' inizio del topic ma ho visto che si pianta il PC, si rallenta, e non so piu' dove parare ...

    Mi hai dato un' idea a cui non avevo pensato: far eseguire questa query da ASP, ci provo ...

  5. #5
    Utente di HTML.it
    Registrato dal
    Jun 2002
    Messaggi
    585
    Andrea,

    accogliendo la tua idea sono riuscito splendidamente a risolvere il problema cosi':

    pagina upload.asp:

    <%@ Language=VBScript %>
    <%
    Option Explicit
    Dim cmd, cn, sql
    '
    Set cn = Server.CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\..\ri_wkp.mdb;"
    '
    sql ="UPDATE t_proj_2012 INNER JOIN t_mrg ON t_proj_2012.Numero=t_mrg.Numero SET t_proj_2012.Inizio = t_mrg.Inizio, " & _
    "t_proj_2012.Fine = t_mrg.Fine, t_proj_2012.Richiedente = t_mrg.Richiedente, t_proj_2012.Ore = t_mrg.Ore;"
    '
    Set cmd=CreateObject("adodb.command")
    With cmd
    Set .ActiveConnection = cn
    .CommandType=1 'adCmdText
    .CommandText = sql
    .Execute , , 128 '128=adExecuteNoRecords
    End With
    cn.Close
    Set cn=nothing
    '
    %>

    Grazie ancora !!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.