1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
Private Sub ExecProcStoc()
Dim monServeur = "LORDMAMELON"
Dim mabase = "TEST_MAG"
Dim maRequete = "EXECUTE moyNoteMat"
Dim maCMD As SqlCommand
Dim monReader As SqlDataReader
'créationet ouverture de la connection à la base de donnée
Dim maConn As New SqlConnection
maConn.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=" & mabase & ";server=" & monServeur
maConn.Open()
'Exécution d'une procédure stockée
maCMD = New SqlCommand(maRequete, maConn)
monReader = maCMD.ExecuteReader()
While (monReader.Read())
MessageBox.Show("nom = " & monReader.GetString(0) & " info = " & monReader.GetValue(1).ToString)
End While
'fin de la lecture des données, fermeture du reader
monReader.Close()
'fin de la connection à la base de données
maConn.Close()
End Sub
Merci |
Partager