Discussion :

[islamune9]

bonjour tout le monde j'utilise un msgBoxStyle avec ok et cancel je veux en cliquant sur ok effectuer une tache et sur cancel effectuer autre tache!
par exemple:
If ok = False Then
MsgBox("ok")

ElseIf ok = True Then
MsgBox("notok")

End If
mais çaaveut pas marcher!!merci

[Pol63]

y a pas grand chose de plus simple pourtant


If MsgBox("Message", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then

Else
End If

[islamune9]

merci énormément

If MsgBox("Message", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
MsgBox("ok")
ElseIf MsgBox("Message", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
MsgBox("annuler")
End If

ça marche et pour annuler je dois cliquer 2 fois pr visualiser mon message..pq pas une seule fois en un seul clic?

[Gdal]

Salut,

Pourrais-tu utiliser les balises .

Pour ton problème, voici la sulution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
        Dim Message As String
        Dim TitreMessage As String
        Dim Bouton As MessageBoxButtons
        Dim Icone As MessageBoxIcon
        Dim Resultat As DialogResult
 
        Message = "Ton message."
        TitreMessage = "Ton titre."
        Bouton = MessageBoxButtons.OKCancel
        Icone = MessageBoxIcon.Question
        Resultat = MessageBox.Show(Message, TitreMessage, Bouton, Icone)
 
        Select Case Resultat
            Case DialogResult.OK
                ' Instructions
            Case DialogResult.Cancel
                ' Instructions
        End Select

Autrement dans l'aide VS, tu aurais pu trouver en faisant et en recherchant Messagebox

Bonne continuation

Gwendal

Pense à

[islamune9]

je te remercie aussi GDAl c'est intéréssant comme code pour les msgBoxStyle,et la prochaine j'utiliserai les balise "CODE" promis..
merciiiiii
ça a marché très bien chez moi

[Pol63]

merci énormément

If MsgBox("Message", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
MsgBox("ok")
ElseIf MsgBox("Message", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
MsgBox("annuler")
End If

ça marche et pour annuler je dois cliquer 2 fois pr visualiser mon message..pq pas une seule fois en un seul clic?

elseif refait un if
else tout court execute dans le cas ou le premier if n'était pas bon
le code que j'ai mis marche

[islamune9]

mmm oui tout à fait d'accord les deux codes marchent
je vous remercie encore une fois

[islamune9]

je veux bien que vous continuez votre aide si ça vous dérange pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 Dim Message As String
         Dim TitreMessage As String
        Dim Bouton As MessageBoxButtons
        Dim Icone As MessageBoxIcon
        Dim Resultat As DialogResult
 
        Message = "Atention vous n'aurez plus le droit de modifier ce rapport!!"
        TitreMessage = "Avertissement"
        Bouton = MessageBoxButtons.OKCancel
        Icone = MessageBoxIcon.Question
        Resultat = MessageBox.Show(Message, TitreMessage, Bouton, Icone)
 
        Select Case Resultat
            Case Windows.Forms.DialogResult.OK
                con.Open()
                cmd = New SqlCommand("insert into RprtValidé(n_rapport,n_ligne_rapport,semaine,id_pers,date_deb_dep,date_fin_dep,nom_clt,ville,libelle,prix) values('" & Me.DataGridView1.CurrentRow.Cells.Item(0).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(0).Value & "' , '" & Me.DataGridView1.CurrentRow.Cells.Item(1).Value & "' , '" & Me.txtdersonnel.Text & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(2).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(3).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(4).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(5).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(6).Value & "' , '" & Me.DataGridView2.CurrentRow.Cells.Item(7).Value & "')")
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                cmd = New SqlCommand("delete from fraisDeplacement where n_ligne_rapport='" & Me.DataGridView2.CurrentRow.Cells.Item(0).Value & "'")
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                cmd = New SqlCommand("delete from clients where n_ligne_rapport='" & Me.DataGridView2.CurrentRow.Cells.Item(0).Value & "'")
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                cmd = New SqlCommand("delete from ligneRapport where n_ligne_rapport='" & Me.DataGridView2.CurrentRow.Cells.Item(0).Value & "'")
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                cmd = New SqlCommand("delete from rapport where n_rapport='" & Me.DataGridView1.CurrentRow.Cells.Item(0).Value & "'")
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                MsgBox("voulez vous l'imprimer?", MsgBoxStyle.OkCancel)
            Case Windows.Forms.DialogResult.Cancel
                'et là je veux annuler l'exécution de ces commandes
        End Select

j'espère être claire

[islamune9]

je pense que y'as un objet transaction avec commit et rollback mais je ne sais pas comment l'utliser ici!!!!!!

[Gdal]

Salut,

C'est bizar....

Si l'utilisateur clique sur OK, il ne peut plus cliquer sur Cancel.... et vise-et-versa...

Je ne sais pas non plus utiliser la méthode

je pense que y'as un objet transaction avec commit et rollback mais je ne sais pas comment l'utliser ici!!!!!!

Mais je creuserais de ce côté.


Gwendal

[islamune9]

oui je sais mais moi j'ai fait deux if s'il clic sur ok il effectuera une tache ,la meme chose pr cancel..mais ça tu m'as déjà donnée la solution maintenant je cherche come faire pour annuler l'éxcécution de ces comandes...je sais pas si tu m'as bien compris

[Pol63]

non pas compris du tout
si tu execute pas le code, pourquoi vouloir l'annuler ?

[Gdal]

oui, ok. Et donc creuse du côté de Rollback & comit

SqlTransaction, classe
ms-help://MS.VSExpressCC.v80/MS.NETFramework.v20.fr/cpref4/html/T_System_Data_SqlClient_SqlTransaction.htm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub ExecuteSqlTransaction(ByVal connectionString As String)
    Using connection As New SqlConnection(connectionString)
        connection.Open()
 
        Dim command As SqlCommand = connection.CreateCommand()
        Dim transaction As SqlTransaction
 
        ' Start a local transaction
        transaction = connection.BeginTransaction("SampleTransaction")
 
        ' Must assign both transaction object and connection
        ' to Command object for a pending local transaction.
        command.Connection = connection
        command.Transaction = transaction
 
        Try
            command.CommandText = _
              "Insert into Region (RegionID, RegionDescription) VALUES (100, 'Description')"
            command.ExecuteNonQuery()
            command.CommandText = _
              "Insert into Region (RegionID, RegionDescription) VALUES (101, 'Description')"
 
            command.ExecuteNonQuery()
 
            ' Attempt to commit the transaction.
            transaction.Commit()
            Console.WriteLine("Both records are written to database.")
 
        Catch ex As Exception
            Console.WriteLine("Commit Exception Type: {0}", ex.GetType())
            Console.WriteLine("  Message: {0}", ex.Message)
 
            ' Attempt to roll back the transaction.
            Try
                transaction.Rollback()
 
            Catch ex2 As Exception
                ' This catch block will handle any errors that may have occurred
                ' on the server that would cause the rollback to fail, such as
                ' a closed connection.
                Console.WriteLine("Rollback Exception Type: {0}", ex2.GetType())
                Console.WriteLine("  Message: {0}", ex2.Message)
            End Try
        End Try
    End Using
End Sub

Gwendal

[islamune9]

pour le lien il s'ouvre pas ..
et j'essaie maintenant de suivre ton code pour executer ma transaction ..

[Gdal]

normal....
Tu ouvres Visual Studio, tu fais et tu colles le lien... ou alors tu recherches sqlTransaction.Comit (ou Rollback) ou SqlTransaction, classe

voili voilou

Gwendal

[islamune9]

de retour avec ma transaction;toujours un probleme :on me dit "La référence d'objet n'est pas définie à une instance d'un objet. pour la ligne ou y a trans.rollback"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNouvLigne.Click
        Try

            Dim resultat As String
            con.Open()
            cmd = New SqlCommand("insert into ligneRapport values('" & Me.TextBox10.Text & "','" & Me.TextBox1.Text & "','" & Me.TextBox7.Text & "','" & Me.DateTimePicker1.Value.Date.ToString & "','" & Me.DateTimePicker2.Value.Date.ToString & "')")
            cmd.Connection = con
            trans = cmd.Transaction
            cmd.Transaction = con.BeginTransaction
            cmd.ExecuteNonQuery()
            cmd = New SqlCommand("insert into clients values('" & Me.TextBox4.Text & "' , '" & Me.TextBox5.Text & "' , '" & Me.TextBox10.Text & "')")
            cmd.Connection = con
            cmd.ExecuteNonQuery()
            cmd = New SqlCommand("insert into fraisDeplacement values('" & Me.TextBox10.Text & "' , '" & Me.TextBox3.Text & "' , '" & Me.TextBox6.Text & "' , '" & Me.TextBox11.Text & "' , '" & Me.TextBox12.Text & "' , '" & Me.TextBox13.Text & "' , '" & Me.TextBox14.Text & "' , '" & Me.TextBox15.Text & "' , '" & Me.TextBox16.Text & "')")
            cmd.Connection = con
            cmd.ExecuteNonQuery()
            ''appel de la procédure qui control la saisie de la semaine 
            cmd = New SqlCommand("exec CtrlSemaine @id_pers,@sort output")
            cmd.Parameters.Add("@id_pers", SqlDbType.VarChar, 50)
            cmd.Parameters.Add("@sort", SqlDbType.VarChar, 50)
            cmd.Connection = con
            cmd.Parameters("@id_pers").Direction = ParameterDirection.Input
            cmd.Parameters("@sort").Direction = ParameterDirection.Output
            cmd.Parameters("@id_pers").Value = Me.TextBox2.Text
            cmd.ExecuteNonQuery()
            trans.Commit()
            resultat = cmd.Parameters("@sort").Value
            If Me.MaskedTextBox1.Text = resultat Or Me.MaskedTextBox1.Text < resultat Then
                MsgBox("semaine incorrecte!!!!!", MsgBoxStyle.Exclamation)

            Else
                MsgBox("Ajout avec succès", MsgBoxStyle.Information)

            End If
            cmd.Parameters.Clear()

        Catch ex As Exception
            trans.Rollback()
            
        End Try
        con.Close()
    End Sub

s'il vous je suis plantée devant mon probleme qui peut m'aider pour avancer un peu dans mon application.
merci!

[Gdal]

Salut,

Je ne vois pas la déclaration de transaction, je ne vois pas non plus la même strucuture....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim transaction As SqlTransaction
 
        ' Start a local transaction
        transaction = connection.BeginTransaction("SampleTransaction")
 
        ' Must assign both transaction object and connection
        ' to Command object for a pending local transaction.
        command.Connection = connection
        command.Transaction = transaction

Gwendal