none
vbscript per access come aggiornare una tabella da un'altra tabella RRS feed

  • Domanda

  • ciao, ho trovato su internet questo esempio vbscript per access, per inserire nuovi record di una tabella e funziona perfettamente, il mio problema però è anche quello di aggiornare i record modificati nella stessa tabella sotto riportata. Questo è il file vbs che uso per inserire nuovi record.

    'Private Sub InserisciNelDB_Click()

    Dim conferma

    conferma = MsgBox("Con questa procedura inserisco record nuovi sulla tabella : FATTURE e le tabelle collegate. " & chr(13) & "Inserire file Copia MiniGestionale_DB.mdb." & CHR(13) & "Confermi l'inserimento?", vbYesNo)

    If conferma = 6 Then

      ' Mi connetto al database

      Dim objAccess

      Dim strPathFromMDB

      strPathFromMDB = "C:\MiniGestionale\MiniGestionale_db.mdb"

      Set objAccess = CreateObject("Access.Application")

      objAccess.OpenCurrentDatabase(strPathFromMDB)

      ' Effettuo l'inserimento dei nuovi dati

      objAccess.DoCmd.RunSQL "INSERT INTO T_CLIENTI IN 'C:\MiniGestionale\MiniGestionale_DB.mdb' SELECT * FROM T_CLIENTI IN 'C:\MiniGestionale\Copia MiniGestionale_DB.mdb'"

     'Chiudo la connessione al database

      objAccess.CloseCurrentDatabase

      ObjAccess.Quit

      Set objAccess = Nothing

      ' Restituisco un messaggio di successo

      msgbox("Operazione terminata correttamente")

    End If

    per cortesia qualcuno riesce ad aiutarmi, grazie

    martedì 15 maggio 2012 12:09

Risposte

  • per risolvere il problema ho pensato di eliminare prima la tabella e poi di reinserirla.

    ' Effettuo l'inserimento dei record aggiornati, prima però elimino la tabella e poi reinserisco la tabella quella aggiornata cioè quella che trovo nel file Copia MiniGestionale_DB.mdb

    objAccess.DoCmd.RunSQL "DELETE * FROM T_CLIENTI IN 'C:\MiniGestionale\MiniGestionale_DB.mdb'"

    objAccess.DoCmd.RunSQL "INSERT INTO T_CLIENTI IN 'C:\MiniGestionale\MiniGestionale_DB.mdb' SELECT * FROM T_CLIENTI IN 'C:\MiniGestionale\Copia MiniGestionale_DB.mdb'"

    • Contrassegnato come risposta galopa giovedì 17 maggio 2012 13:24
    giovedì 17 maggio 2012 13:23