Update un enregistrement oracle avec vb.net
NOUNOU
-
NOUNOU -
NOUNOU -
slt j'ai une base de donnée oracle et je bosse avec vb.net je veux faire les modification ca marche pas j'ai violation de contraine quelqu'un peut m'aider
voila le code que j'ai ecris
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s As String = ""
If (TextBox1.Text <> "") Then
s = "update agences set refag= '" & Me.TextBox1.Text & "'"
Form2.GetData(s)
ElseIf (TextBox2.Text <> "") Then
s = "update agences set designation= '" & Me.TextBox2.Text & "'"
Form2.GetData(s)
ElseIf (TextBox3.Text <> "") Then
s = "update agences set ville= '" & Me.TextBox3.Text & "'"
Form2.GetData(s)
ElseIf (TextBox4.Text <> "") Then
s = "update agences set capital= " & Me.TextBox4.Text
Form2.GetData(s)
End If
MsgBox("La modification est effectuer")
End Sub
voila le code que j'ai ecris
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s As String = ""
If (TextBox1.Text <> "") Then
s = "update agences set refag= '" & Me.TextBox1.Text & "'"
Form2.GetData(s)
ElseIf (TextBox2.Text <> "") Then
s = "update agences set designation= '" & Me.TextBox2.Text & "'"
Form2.GetData(s)
ElseIf (TextBox3.Text <> "") Then
s = "update agences set ville= '" & Me.TextBox3.Text & "'"
Form2.GetData(s)
ElseIf (TextBox4.Text <> "") Then
s = "update agences set capital= " & Me.TextBox4.Text
Form2.GetData(s)
End If
MsgBox("La modification est effectuer")
End Sub
Configuration: Windows XP Firefox 2.0.0.14
A voir également:
- Update un enregistrement oracle avec vb.net
- Winget update - Guide
- Windows update bloqué - Guide
- Asus live update - Télécharger - Utilitaires
- Wsus offline update - Télécharger - Systèmes d'exploitation
- Windows update blocker - Forum Windows 10