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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?