EnteteSQL = "Update client Set " FinSQL = " Where Num_client= " & IDClient & ";" 'Parcours des contrôles de la page For Each Controle In nom_page.Controls(1).Controls nomchamp = Controle.ID If Left(nomchamp, 4) Like "Text" Then nom = nomchamp.Remove(0, 4) For Each objDataCol In objDataTable.Columns texte = nom_page.Controls(1).FindControl("Text" & nom) If texte.ReadOnly = False Then valeur = texte.Text MilieuSQL = VerifType(objDataCol, valeur) Exit For Else Exit For End If Exit For Next 'Marche pour les string ListeChgts = ListeChgts & nom & MilieuSQL & "," 'ListeChgts = ListeChgts & nom & "=""" & valeur & """," End If Next 'On enlève la dernière virgule superflue ListeChgts = Left(ListeChgts, Len(ListeChgts) - 1) sql2 = EnteteSQL & ListeChgts & FinSQL
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Function VerifType(ByRef objDataCol As DataColumn, ByVal valeur As String) As String If objDataCol.DataType Is System.Type.GetType("System.Integer") Then MilieuSQL = "= ' & valeur & ' " Else 'If objDataCol.DataType Is System.Type.GetType("System.String") Then MilieuSQL = "=""" & valeur & """" End If Return MilieuSQL End Function