MamieDevJe n'arrive pas à insérer une satanée ligne dans ma base SQL avec le code suivant. Le dataset se met à jour mais il n'en est rien pour la source. Quelle instruction me manque-t-il ?
Public Function Ftest() As Boolean
Dim Icmd As String
Dim IadpAapc As SqlClient.SqlDataAdapter
Dim Dt As DataSet
Try
Icmd = "SELECT * FROM table1"
IadpAapc = New SqlDataAdapter(Icmd, ConSpigao)
Dt = New DataSet()
IadpAapc.Fill(Dt, "tb")
Dim Isqlcb = New SqlCommandBuilder(IadpAapc)
Dim InewRow As DataRow = Dt.Tables("tb").NewRow
InewRow("Nannonce") = 1
InewRow("Version") = 1
InewRow("Refprescrip") = 500
InewRow("Ann") = "Texte"
' modification du dataset
Dt.Tables("tb").Rows.Add(InewRow)
Dt.AcceptChanges()
IadpAapc.Update(Dt, "tb")
IadpAapc.Dispose()
Catch ee As Exception
Return False
Exit Function
End Try
Return True
End Function