Autre faciliter sql pour requete ajout

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 235 fois - Téléchargée 43 fois

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

Ajouter un commentaire Commentaire
Messages postés
21
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
19 juin 2005

bonjour, j'ai pas tout comprit ce que tu fait dans ton code...

De quel forme est la chaine que tu appel strSql ??

a quoi sert $ ? et ","...

désolé je débute et j'ai pas tres bien comprit ton code...

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.