Autre faciliter sql pour requete ajout

Commenter

Contenu du snippet

En voyant la source precedente sur une methode plus simple de SQL ca m'a fais penser qui a longtemps j'avais developper un com pour ASP qui permetter de faciliter l'insertion de données ds une bdd.

Dans mon cas j'avais plus de 50 champs a ajouter et au moindre bugs ct 5/6 lignes a debugger, jvous dis pas la galere.

Enfin bref
ce composant est tres simple d'utilisation

Au lieiu de faire votre requete du type
REQSQL="insert into Table (Champ1,Champ2...) Values('Valeur1',Valeur2...)

La vous faites :
REQSQL=ConvertTOSQL("Champ1$'Valeur1',Champ2$Valeur2"....., "Table")

il est sur que sur 2 champs ca sert a rien ms imaginer sur plus de 50, a vrai dire aujourdhui je ne men sert plus j'ai acquis plus de maturité et de clarté ds mon raisonnement ms si ce code peut servir a kkun servait vous

Si ya des bugs ou des choses que vous ne comprenez pas laissez un commentaire

Source / Exemple : 


Public Function ConvertToSQL(strSQL As String, strTable As String, Optional strSeparateur As String = "$") As String
Dim strTMP() As String
Dim strTMP2 As String
Dim strTMP3() As String
Dim TMPSQL As String
Dim TMPSQL2  As String

strTMP2 = strSeparateur
strTMP3 = Split(strSQL, ",")

For j = 0 To UBound(strTMP3) 'Recupere champ / valeur
    strTMP = Split(strTMP3(j), strTMP2)
    TMPSQL = TMPSQL & strTMP(0)
    TMPSQL2 = TMPSQL2 & strTMP(1)
    If j <> UBound(strTMP3) Then
        TMPSQL = TMPSQL & ","
        TMPSQL2 = TMPSQL2 & ","
    End If
Next
        
ConvertToSQL = "insert into " & strTable & "(" & TMPSQL & ") values (" & TMPSQL2 & ")"
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (webboy)