Discussion :

[chuspyto]

bonjour,
j'aurrai besoin d'aide pour retranscrire cela en vb net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
  rstdepart.MoveFirst()
            Do Until rstdepart.EOF
                note = Nz(rstdepart![notes], "")
                If note <> "" Then
                    notes = notes & note & vbCrLf
                End If
                rstdepart.MoveNext()
            Loop
            rstdepart.Close()
            rstdepart = Nothing

sachant que j'ai commence avec cela
Dim cmds As OleDbCommand = cnn.CreateCommand

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

            cmds.CommandText = String.Format("Select * from Table_BLOC_NOTES VALUES ('" & bloc_note & "'=""")

merci

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim r = cmds.executereader ' exécute la requete avec retour des données
while r.read ' r.Read positionne le curseur sur la ligne suivant (ou la 1ère)
  note = r.item("notes").ToString ' r.item permet d'accéder à la valeur d'une colonne (c'est as object, pour un string on fait .ToString)
  if note <> "" then notes &= note & vbcrlf
end while ' ca sort quand r.Read retourne false = pas de ligne ou pas de ligne suivante