Programmation des traitements Dim statement as object Dim resultset as object statement=connection.createStatement() resultset=statement.executeQuery( select * from client ) If Not IsNull(resultset) Then While resultset.next oListbox.additem(resultset.getString(2)) Wend End If Dim statement as object Dim resultset as object Dim totCA as integer statement=connection.createStatement() resultset=statement.executeQuery( select * from commande ) totCA=0 If Not IsNull(resultset) Then While resultset.next totCA=totCA+resultset.getString(4) Wend End If MsgBox totCA Lexemple du parcours dun jeu denregistrements Le quatrième champ de la ligne est le total de la commande Un patron de programmation
{"Image DocumentName": "Programmation des traitements", "Image ImageDescription": "Un patron de programmation. L\u2019exemple du parcours d\u2019un jeu d\u2019enregistrements. Dim statement as object. Dim resultset as object. statement=connection.createStatement() resultset=statement.executeQuery( select   from client ) If Not IsNull(resultset) Then. While resultset.next. oListbox.additem(resultset.getString(2)) Wend. End If. Dim totCA as integer. resultset=statement.executeQuery( select   from commande ) totCA=0. totCA=totCA+resultset.getString(4) MsgBox totCA. On montre ici des structures de contr\u00f4le, de donn\u00e9es, des fonctions et des objets techniques. En rouge ce qu\u2019on va plus particuli\u00e8rement expliquer. On illustre un m\u00eame algorithme-type : le parcours d\u2019un jeu d\u2019enregistrements. Des supports vont \u00eatre produits dans ce domaine. Le quatri\u00e8me champ de la ligne est le total de la commande.", "Image XResolution": "37", "Image YResolution": "37", "Image ResolutionUnit": "Pixels/Centimeter", "Image Software": "SlidePlayer", "Image YCbCrPositioning": "Centered"}