begin process at 2012 02 12 04:18:54
  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 :3 295
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 Source avec une capture BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa
Source avec Zip VBA EXEL GESTION DE PERSONEL NOUVEAU CONTRAT DE TRAVAI par oudlarbi
Source avec Zip Source avec une capture CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa
Source avec Zip Source .NET (Dotnet) MISAHORAIRE par MdelM
Source avec Zip Source avec une capture BASEDEDONNEES,GESTIONDEMALADES,DATABASSE par shadkitenge
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...

Comparez les prix


Apple iPhone 4 Noir (16 Go)
Entre 0€ et 0€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

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,499 sec (4)

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)