salut à tous,
est ce qu'il y a quelqu'un peut m'aider pour corriger cette erreur?
voila le code:
Private Sub Materiels_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Materiels_Button.Click
Dim strconn AsString = "Data source =TRAVAIL\SQLEXPRESS;Initial catalog=parcFSG;integrated security=SSPI"
Dim maconnexion As SqlConnection = New SqlConnection(strconn)
Dim insertCommand = maconnexion.CreateCommand
maconnexion.Open()
Dim aObjectQuery5 AsNew ObjectQuery("select Name,Manufacturer,SerialNumber,SKU from Win32_BaseBoard")
'La classe ManagementObjectSearcher permet d'extraire une collection d'objets de gestion, en fonction de la requête spécifiée lors de son instanciation par le paramètre ObjectQuery ou directement par une string si l'on " code en dur ".
Dim aManagementObjectSearcher5 AsNew ManagementObjectSearcher(aManagementScope, aObjectQuery5)
'ManagementObjectCollection représente différentes collections d'objets de gestion extraits via WMI.
Dim aManagementObjectCollection5 As ManagementObjectCollection = aManagementObjectSearcher5.Get
'ManagementObject est un objet de gestion de données.
Dim aManagementObject5 As ManagementObject
For Each aManagementObject5 In aManagementObjectCollection5
insertCommand.CommandText = "insert into carte_mére (Name,Manufacturer,SerialNumber,SKU) values (@Name,@Manufacturer,@SerialNumber,@SKU)"
insertCommand.Parameters.AddWithValue("@Name", aManagementObject5("Name"))
'insertCommand.Parameters.AddWithValue("@Model", aManagementObject5("Model"))
insertCommand.Parameters.AddWithValue("@Manufacturer", aManagementObject5("Manufacturer"))
insertCommand.Parameters.AddWithValue("@SerialNumber", aManagementObject5("SerialNumber"))
insertCommand.Parameters.AddWithValue("@SKU", aManagementObject5("SKU"))
insertCommand.ExecuteNonQuery()
Next
End Sub
L'erreur est :
Parameterized Query '(@Name nvarchar(13),@Manufacturer nvarchar(15),@SerialNumber nva' expects parameter @SKU, which was not supplied.
