begin process at 2010 03 22 00:28:25
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de Donnees

 > AUTRE FACILITER SQL POUR REQUETE AJOUT

AUTRE FACILITER SQL POUR REQUETE AJOUT


 Information sur la source

Note :
Aucune note
Catégorie :Base de Donnees Niveau :Débutant Date de création :11/10/2002 Date de mise à jour :11/10/2002 16:38:26 Vu :2 864
Auteur : webboy

Ecrire un message privé
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

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$Val eur2"....., "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

  • 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
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



 Sources du même auteur

Source avec Zip UN CHTI REQUETEUR SQL VIAN N'IMPORTE KEL SOURCE ODBC
Toutes les sources de webboy

 Sources de la même categorie

Source avec Zip CHARGER DES DONNÉES DEPUIS UN FICHIER TXT DANS UNE BASE DE D... par ig3
Source avec Zip Source avec une capture GESTIONPMPT par mark100
Source avec Zip Source .NET (Dotnet) DATA ACCESS COMPONENT par zaimfaycal
Source avec Zip GESTION ENSEIGNANTS par Elmarzougui
Source avec Zip GESTION D'UNE BIBLIOTHÈQUE par Elmarzougui
Toutes les sources de la catégorie Base de Donnees

Commentaires et avis

Commentaire de Mr Capone le 27/01/2005 09:47:21

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...

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,749 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)