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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
| Public Sub UpdateDataset(ByVal p_Dts As DataSet, ByVal p_datatable As String, ByVal p_rqte As String, ByVal p_tableBdd As String)
'Met à jour les Tables de la BDD
Dim z_Adp As New OleDb.OleDbDataAdapter
z_Adp.SelectCommand = New OleDb.OleDbCommand(p_rqte, z_Cnx)
Try
z_Adp.Fill(p_Dts, p_datatable)
Select Case p_tableBdd 'en fonction de la table
Case "Mt_Aff"
'Commande Update
z_Adp.UpdateCommand = New OleDbCommand("UPDATE MAS.." & p_tableBdd & " SET Af_Ctr_Cde =? ,Af_NumCtt = ? , Af_DteCtt = ? , Af_NbrLoy = ? , " & _
" Af_MttLoy = ? ,Af_DepGar = ? , Af_CttFin = ? , Af_MttOldLoy = ? WHERE Af_Ctr_Cde = ? ", z_Cnx)
Createparameters(z_Adp, "Update", "?Af_Ctr_Cde", "Af_Ctr_Cde", OleDbType.VarChar, DataRowVersion.Original, 8, Frm_Mat.Tx_CodCentre.Text)
Createparameters(z_Adp, "Update", "?Af_NumCtt", "Af_NumCtt", OleDbType.VarChar, DataRowVersion.Current, 15)
Createparameters(z_Adp, "Update", "?Af_DteCtt", "Af_DteCtt", OleDbType.DBDate, DataRowVersion.Current, 10)
Createparameters(z_Adp, "Update", "?Af_NbrLoy", "Af_NbrLoy", OleDbType.Decimal, DataRowVersion.Current)
Createparameters(z_Adp, "Update", "?Af_MttLoy", "Af_MttLoy", OleDbType.Decimal, DataRowVersion.Current)
Createparameters(z_Adp, "Update", "?Af_DepGar", "Af_DepGar", OleDbType.Decimal, DataRowVersion.Current)
Createparameters(z_Adp, "Update", "?Af_CttFin", "Af_CttFin", OleDbType.DBDate, DataRowVersion.Current)
Createparameters(z_Adp, "Update", "?Af_MttOldLoy", "Af_MttOldLoy", OleDbType.Decimal, DataRowVersion.Current)
'Commande Delete
z_Adp.DeleteCommand = New OleDbCommand("DELETE FROM MAS.." & p_tableBdd & " WHERE Af_Ctr_Cde = ? ", z_Cnx)
Createparameters(z_Adp, "Delete", "?Af_Ctr_Cde", "Af_Ctr_Cde", OleDbType.VarChar, DataRowVersion.Original, 8, Frm_Mat.Tx_CodCentre.Text)
Createparameters(z_Adp, "Delete", "?Af_NumCtt", "Af_NumCtt", OleDbType.VarChar, DataRowVersion.Current, 15)
Createparameters(z_Adp, "Delete", "?Af_DteCtt", "Af_DteCtt", OleDbType.DBDate, DataRowVersion.Current, 10)
Createparameters(z_Adp, "Delete", "?Af_NbrLoy", "Af_NbrLoy", OleDbType.Decimal, DataRowVersion.Current)
Createparameters(z_Adp, "Delete", "?Af_MttLoy", "Af_MttLoy", OleDbType.Decimal, DataRowVersion.Current)
Createparameters(z_Adp, "Delete", "?Af_DepGar", "Af_DepGar", OleDbType.Decimal, DataRowVersion.Current)
Createparameters(z_Adp, "Delete", "?Af_CttFin", "Af_CttFin", OleDbType.DBDate, DataRowVersion.Current)
Createparameters(z_Adp, "Delete", "?Af_MttOldLoy", "Af_MttOldLoy", OleDbType.Decimal, DataRowVersion.Current)
'Commande Insert
z_Adp.InsertCommand = New OleDbCommand("INSERT INTO MAS.." & _
p_tableBdd & " (Af_Ctr_Cde, Af_NumCtt, Af_DteCtt, Af_NbrLoy," & _
" Af_MttLoy, Af_DepGar, Af_CttFin, Af_MttOldLoy) VALUES " & _
"(?, ?, ?, ?, ?, ?, ?, ?) ", z_Cnx)
Createparameters(z_Adp, "Insert", "?Af_Ctr_Cde", "Af_Ctr_Cde", OleDbType.VarChar, DataRowVersion.Original, 8, Frm_Mat.Tx_CodCentre.Text)
Createparameters(z_Adp, "Insert", "?Af_NumCtt", "Af_NumCtt", OleDbType.VarChar, DataRowVersion.Current, 15)
Createparameters(z_Adp, "Insert", "?Af_DteCtt", "Af_DteCtt", OleDbType.DBDate, DataRowVersion.Current, 10)
Createparameters(z_Adp, "Insert", "?Af_NbrLoy", "Af_NbrLoy", OleDbType.Decimal, DataRowVersion.Current)
Createparameters(z_Adp, "Insert", "?Af_MttLoy", "Af_MttLoy", OleDbType.Decimal, DataRowVersion.Current)
Createparameters(z_Adp, "Insert", "?Af_DepGar", "Af_DepGar", OleDbType.Decimal, DataRowVersion.Current)
Createparameters(z_Adp, "Insert", "?Af_CttFin", "Af_CttFin", OleDbType.DBDate, DataRowVersion.Current)
Createparameters(z_Adp, "Insert", "?Af_MttOldLoy", "Af_MttOldLoy", OleDbType.Decimal, DataRowVersion.Current)
Case "Mt_Mtr"
'Commande Update
z_Adp.UpdateCommand = New OleDbCommand("UPDATE MAS.." & p_tableBdd & " SET Mt_DesRef = ? , Mt_SriCst = ? WHERE Mt_SriCst = ? ", z_Cnx)
Createparameters(z_Adp, "Update", "?Mt_DesRef", "Mt_DesRef", OleDbType.VarChar, DataRowVersion.Current, 200)
Createparameters(z_Adp, "Update", "?Mt_SriCst", "Mt_SriCst", OleDbType.VarChar, DataRowVersion.Original, 25)
'Commande Delete
z_Adp.DeleteCommand = New OleDbCommand("DELETE FROM MAS.." & p_tableBdd & " WHERE Mt_SriCst = ? ", z_Cnx)
Createparameters(z_Adp, "Delete", "?Mt_DesRef", "Mt_DesRef", OleDbType.VarChar, DataRowVersion.Current, 200)
Createparameters(z_Adp, "Delete", "?Mt_SriCst", "Mt_SriCst", OleDbType.VarChar, DataRowVersion.Original, 25)
'Commande Insert
z_Adp.InsertCommand = New OleDbCommand("INSERT INTO MAS.." & p_tableBdd & " (Mt_DesRef, Mt_SriCst) VALUES (?, ?) ", z_Cnx)
Createparameters(z_Adp, "Insert", "?Mt_DesRef", "Mt_DesRef", OleDbType.VarChar, DataRowVersion.Current, 200)
Createparameters(z_Adp, "Delete", "?Mt_SriCst", "Mt_SriCst", OleDbType.VarChar, DataRowVersion.Original, 25)
Case "Mt_Ett"
'Commande Update
z_Adp.UpdateCommand = New OleDbCommand("UPDATE MAS.." & p_tableBdd & " SET Et_Lib = ? WHERE Et_Lib = ? ", z_Cnx)
Createparameters(z_Adp, "Update", "?Et_Lib", "Et_Lib", OleDbType.VarChar, DataRowVersion.Current, 200)
'Commande Delete
z_Adp.DeleteCommand = New OleDbCommand("DELETE FROM MAS.." & p_tableBdd & " WHERE Et_Lib = ? ", z_Cnx)
Createparameters(z_Adp, "Delete", "?Et_Lib", "Et_Lib", OleDbType.VarChar, DataRowVersion.Current, 200)
'Commande Insert
z_Adp.InsertCommand = New OleDbCommand("INSERT INTO MAS.." & p_tableBdd & " (Et_Lib) VALUES (?) ", z_Cnx)
Createparameters(z_Adp, "Insert", "?Et_Lib", "Et_Lib", OleDbType.VarChar, DataRowVersion.Current, 200)
End Select
z_Adp.Update(p_Dts, p_datatable)
Catch ex As Exception
Throw ex
End Try
End Sub |
Partager