Scribd
Importer
20 vues2 pages

Aj Outer

Le document présente des fonctions pour ajouter, modifier, supprimer et rechercher des clients dans une base de données. Chaque opération inclut des vérifications pour s'assurer que les champs sont remplis correctement et que les clés primaires sont valides. Des messages de confirmation sont affichés après chaque opération réussie.

Transféré par

lamia brahim
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd
20 vues2 pages

Aj Outer

Le document présente des fonctions pour ajouter, modifier, supprimer et rechercher des clients dans une base de données. Chaque opération inclut des vérifications pour s'assurer que les champs sont remplis correctement et que les clés primaires sont valides. Des messages de confirmation sont affichés après chaque opération réussie.

Transféré par

lamia brahim
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd

aJouter

If verification_Remplissage() Then
If verification_clé_primaire() Then
cnx.Open()
cmd.Connection = cnx
cmd.CommandType = CommandType.Text
cmd.CommandText = " Insert into dals_client(référence, police,
Nom, Prenom, adresse, tel ) values (" & txt_Référence.Text & ",'" &
txt_Police.Text & ",'" & txt_Nom.Text & "','" & txt_Prenom.Text & "'," &
txt_Adresse.Text & ",'" & txt_Num_tel.Text & "')"
cmd.ExecuteNonQuery()
MsgBox("client Ajouté avec snccès")
cnx.Close()
vider_champ()
End If
remplir_dt("select* from dals_client")
End If

modifier
Dim a As String
a = MsgBox("voulez vous vraiment modifié le client", vbYesNo, "
question")

If a = vbYes Then
If clickk = 1 Then
If Référence_dtg = txt_Référence.Text Then
If verification_Remplissage() Then
If verification_clé_primaire() = False Then
cnx.Open()
cmd.CommandText = "update dals_client set police='"
& txt_Police.Text & "', Nom='" & txt_Nom.Text & "',Prenom='" & txt_Prenom.Text
& "',adresse=" & txt_Adresse.Text & ", tel='" & txt_Num_tel.Text & "' where
Référence ='" & txt_Référence.Text & "'"
cmd.ExecuteNonQuery()
MsgBox(" dals_client modifié avec succes")
cnx.Close()
remplir_dt("select* from dals client")
Else
MsgBox("verrifier votre saisir le numéro carte
d'identité n'existe pas dans la base")
End If

End If
Else MsgBox("vous ne pouvez pas changer le numéro Référence
d'identité")

End If
Else MsgBox("veullez choisir un Référence de la liste ci dessous")

End If
End If

Supprimer
Dim a As String
a = MsgBox("voulez vous vraiment suprimer le dals client", vbYesNo, "
question")
If a = vbYes Then
If clickk = 1 Then
If Référence_dtg = txt_Référence.Text Then
If verification_Remplissage() Then
If verification_clé_primaire() = False Then
cnx.Open()
cmd.CommandText = " delete from dals_client where
Référence='" & txt_Référence.Text & "'"
cmd.ExecuteNonQuery()
MsgBox("dals client suprimer avec succes")
cnx.Close()
remplir_dt("select* from dals_client")

End If

End If

End If

End If
End If

Rechercher
If txt_Référence.Text <> "" Then
remplir_dt("select* from dals_client where Référence ='" &
txt_Référence.Text & "'")
ElseIf txt_Nom.Text <> "" And txt_Prenom.Text <> "" Then
cmd.CommandText = " Select*From dals_client where Nom='" &
txt_Nom.Text & "' and Prenom= '" & txt_Prenom.Text & "'"
End If

Vous aimerez peut-être aussi