Accesso Db Da Movicon

[lucaF]

Ciao a tutti, premetto che sono nuovo nell'utilizzo di Movicon. Dovrei apportare una modifica ad un progetto realizzato in Movicon 9.1. In pratica premendo un pulsante dovrei cancellare tutti i record del database Access che contiene i log.

Ho creato il pulsante, ma non so come associare l'evento "premuto" all'avvio di una query.

Grazie.

[pcontini]

Puoi associare la pressione ad "Esecuzione basic" e gestirti poi la query nel basic collegato

[lucaF]

Innanzitutto ti ringrazio per la risposta, e poi volevo chiederti come faccio in Basic a connetrmi ad un DB se il sistema non dispone ne di ADODB ne di DAO?

[lucaF]

Fatto, grazie!

[robgvp]

Ciao , se possibile potresti postare come hai fatto ... anche in poche parole , così magari può servire a qualcun' altro ?

Grazie , e Buon Natale a tutti .

[lucaF]

Innanzitutto bisogna attivare attraverso le References (dal menu visualizza) e selezionare Microsoft DAO. Poi il codice che ho utilizzato è il seguente:

Sub Main

Const PathDB As String = "C:\Program Files\Progea\ThyssenSPVLuca\LOG\Movi_TEST_LOG_0.mdb"

Const PathDB1 As String = "C:\Program Files\Progea\ThyssenSPVLuca\LOG\Movi_TEST_LOG_1.mdb"

' Variables for the database (variabili per il database)

Dim qdf As QueryDef

Dim dbs As Database

' Apertura database

Set dbs = OpenDatabase(PathDB)

Set dbs1 = OpenDatabase(PathDB1)

Set qdf = dbs.CreateQueryDef("")

qdf.SQL = "DELETE FROM Storico;"

qdf.Execute

Set qdf1 = dbs1.CreateQueryDef("")

qdf1.SQL = "DELETE FROM Storico;"

qdf1.Execute

dbs.Close

dbs1.Close

MsgBox("Cancellato il LOG!")

Set dbs = Nothing

Set dbs1 = Nothing

Set qdf = Nothing

Set qdf1 = Nothing

End Sub

[robgvp]

Grazie , a buon rendere .