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 28 29
|
Dim CodeArticle As String = InputBox("Pour quel code article ?", "Code article ?")
Dim Requete As String = "SELECT Num_Article from Article Where Code_Article = '" & CodeArticle & "'"
Dim Commande As New OleDbCommand(Requete, Connexion)
NumArticle = Commande.ExecuteScalar()
Insert = New OleDbCommand("Insert into Lot (" & DG_DataGrid.Columns(6).Name & "," & DG_DataGrid.Columns(7).Name & "," & DG_DataGrid.Columns(8).Name & "," & DG_DataGrid.Columns(9).Name & "," & DG_DataGrid.Columns(10).Name & ") Select @Date_PerempLot, @Stockage, @Fournisseur, @Date_Reception, @Num_Lot from lot where numéro_Article = @ID", Connexion)
Insert.Parameters.AddWithValue("@Date_PerempLot", DG_DataGrid.CurrentRow.Cells(6).Value)
Insert.Parameters.AddWithValue("@Stockage", DG_DataGrid.CurrentRow.Cells(7).Value)
Insert.Parameters.AddWithValue("@Fournisseur", DG_DataGrid.CurrentRow.Cells(8).Value)
Insert.Parameters.AddWithValue("@Date_Reception", DG_DataGrid.CurrentRow.Cells(9).Value)
Insert.Parameters.AddWithValue("@Num_Lot", DG_DataGrid.CurrentRow.Cells(10).Value)
Insert.Parameters.AddWithValue("@ID", NumArticle)
DataSetAdaptateur.InsertCommand = Insert
Insert.ExecuteNonQuery()
DataSetAdaptateur.Update(DataSet, "DataTableCreation")
Insert.Dispose()
Connexion.Close() |
Partager