sql+vb.net

Question

quelqu'un peut m'aider à corriger cette procédure svp et merci d'avance


Bonjour, 


    Public Sub Validation()
        Dim UtlNomS As String = Me.TxtNomSiege.Text & " " & Me.TxtPrenomSiege.Text
        Dim UtlProfilS As String = Me.TxtProfilSiege.Text
        Dim codUtl As String = "select UtlCode from Utilisateur where UtlNomAbrege = '" & TxtProfilSiege.Text & "' "
        If (Me.TxtProfilSiege.Text.Contains("\") = True) Then
            cmd.CommandType = CommandType.Text
            cmd.Connection = conn
            For i = 0 To DGV.Rows.Count - 1
                sql = "insert into Utilisateur (UtlNomAbrege, UtlNom) values (" & UtlProfilS & ", ' " & UtlNomS & "')"
                sql += "insert into Droit (UtlCode, BrnCode, PrdCode,OpCode) values ('" & codUtl & "', '" & Me.DGV.Item(0, i).Value & "', '" & Me.DGV.Item(1, i).Value & "','" & Me.DGV.Item(2, i).Value & " ')"

Next
            cmd.CommandText = sql
            'Try
            cmd.ExecuteNonQuery()
            ' Catch ex As Exception
            MsgBox(sql)
            ' End Try
        Else
            MsgBox("Erreur! Profil incorrect, Ajouter \")
            Me.TxtProfilSiege.Focus()
            Me.TxtProfilSiege.Enabled = True
        End If
    End Sub

      EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles  ICI 

Merci d'y penser dans tes prochains messages.

NHenry · Answer

Corriger, peut être, mais quel est le problème ?

ucfoutu · Answer

Bonjour,
on peut déjà (au moins) se demander comment on pourrait passer le focus à un contrôle dont- la propriété Enabled serait à False (puisque l'on veut la mettre à True). 
(entre autres "curiosités")....

Sql+vb.net

2 réponses

Votre réponse

Discussions similaires