VBScript et ActiveX

Version imprimable

VBScript et ActiveX

Je débute en VBScript. Jusqu'à présent, j'utilisais avec succès le contrôle ActiveX TDC (Tabula Data Control) avec le script JavaScript suivant (il lit les données dans un fichier texte .csv) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<SCRIPT LANGUAGE="Javascript">
  function debut()
    {source.recordset.MoveFirst();}
  function precedant()
    {source.recordset.MovePrevious();
      if (source.recordset.BOF)
        source.recordset.MoveFirst();}
  function suivant()
    {source.recordset.MoveNext();
      if(source.recordset.EOF)
        source.recordset.MoveLast();}
  function fin()
    {source.recordset.MoveLast();}
</SCRIPT>

Je voudrais maintenant l'utiliser aussi avec VBScript. J'ai essayé la traduction suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<SCRIPT LANGUAGE="VBscript">
  Function first()
     source.recordset.MoveFirst()
  End Function
  Function previous()
     source.recordset.MovePrevious()
     If source.recordset.BOF Then
        source.recordset.MoveFirst()
     end If
  End Function
  Function next()
     source.recordset.MoveNext()
     If source.recordset.EOF Then
        source.recordset.MoveLast()
     End If
  End Function
  Function last()
    source.recordset.MoveLast()
  End Function
</SCRIPT>

mais les boutons ne répondent pas. La définition des fonctions n'est donc pas correcte. Quelqu'un pourrait-il m'aider ?

15/03/2010, 01h17
Flamby38

pourquoi ne pas executer pas à pas pour voir ou ca ne marche pas?
Personnelement je trouve ca bizarre d'avoir du vbscript dans une page web, javascript semble plus standard.
15/03/2010, 09h50
Morane

VBScript et ActiveX

Bonjour Flamby38, et merci. J'ai essayé de modifier pas à pas, mais sans succès, probablement parce que je débute. Quant à VBScript, j'essaie de m'y mettre, car mon but est un usage strictement local et sous Windows de données. VBScript me permettrait en plus d'écrire (chose impossible avec Javascript) dans un fichier texte sans passer par PHP et un serveur local. Je reste persuadé que si le script Javascript ci-dessus marche, un script VBScript analogue devrait a fortiori marcher.
15/03/2010, 17h19
Morane

J'ai résolu le problème. Amitiés.