CANALCLAIR

Commentaire de Renfield le 06/02/2008 09:07:17 administrateur CS

pas top, un chemin en dur...
OpenDatabase("c:\Program Files\WinTV\hcwChanDB_5.mdb")

tu dois pouvoir tirer cela de la registry, non ?

Dim dbHaupp As Database

pourquoi ne pas la déclarer dans ta sub ?

une interface (form) est inutile ici, un simple module eut suffit


ton code, lui, transposé dans un projet plus important deviendrait vite un boulet. En effet, tu rappatrie toute ta table et traite cela en VB.
inutile, SQL te dirait:

Private Sub Form_Load()
Dim dbHaupp As Database
    Set dbHaupp = OpenDatabase("c:\Program Files\WinTV\hcwChanDB_5.mdb")
    dbHaupp.Execute("UPDATE `hcwChannels` SET `channel_type`='TV' WHERE `preferred_name`='CANAL+' "
    dbHaupp.Close
End Sub

simple, non ? ^^