1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Public Sub AjoutCodesRue(ByRef codRue As CodesRue)
Dim cmd As OleDbCommand = Nothing
Try
If OuvreConnexion() Then
cmd = New OleDbCommand("INSERT INTO " & tableCodesRue & " (CrCodActif,CrkeyAlpha,CrCodDistr,CrCodPosta,CrCodInsRu,CrDenomina,CrAncDenom) " & _
"VALUES ('" & codRue.CodActif & "','" & codRue.KeyAlph.Replace("'", "''") & "','" & codRue.CodDistr & "','" & codRue.CodPosta & "','" & codRue.CodInsRue & "','" & codRue.Denomina.Replace("'", "''") & "','" & codRue.AncDenom.Replace("'", "''") & "')", _cnx)
cmd.ExecuteNonQuery()
cmd = New OleDbCommand("SELECT last(CrKeyIdent) FROM " & tableCodesRue, _cnx)
codRue.KeyIdent = CLng(cmd.ExecuteScalar)
End If
Catch ex As Exception
Finally
FermeConnexion()
End Try
End Sub |
Partager