Ce programme permet de pallier une lacune de Win TV d'Hauppauge qui ne permet pas de recevoir de chaîne codée lorsque celles ci sont émises en clair. Les dites chaînes sont détectées comme des chaînes radio.
- Il permet avec une carte d'acquisition TNT Hauppauge de regarder Canal+ en clair lorsque ce programme est diffusé en clair.
- Il ne permet pas bien entendu de décrypter cette chaîne ce qui n'est pas autorisé....
Pour Renfield
J'avais même essayé de le faire directement avec Access mais ce dernier programme change la version de la base complètement et cela devient inutilisable.
Bien sûr, en théorie, tu as raison.
En pratique, il faut bien exécuter la routine du module.
De plus, la table fait 22 enregistrements (autant que de chaïnes détectées)et le centième de seconde gagné est du second ordre...Je ne cherchais pas à faire une Ferrari mais à donner cette information.
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
j'ai herité d'un gros projet (quelques 600 forms ou modules)
THE usine à gaz !
et les lenteurs induites par ce genre de manipulation de données...
pour cela que je met en garde. Là, ça va, mais dans de gros process...
J'avais même essayé de le faire directement avec Access mais ce dernier programme change la version de la base complètement et cela devient inutilisable.
Bien sûr, en théorie, tu as raison.
En pratique, il faut bien exécuter la routine du module.
De plus, la table fait 22 enregistrements (autant que de chaïnes détectées)et le centième de seconde gagné est du second ordre...Je ne cherchais pas à faire une Ferrari mais à donner cette information.
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 ? ^^
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.