Fonction de formatage de texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 396 fois - Téléchargée 35 fois

Contenu du snippet

Il est souvent fastidieux de convertir des données à rentrer dans une base.
Cette fonction va vous permettre de convertir les données en fonctions de leur type : Date, String, Int, ...

Source / Exemple :


'-- Fonction qui permet d'insérer facilement dans la base --
Function SQLStr(pvValue)
   Dim sTemp

   Select Case VarType(pvValue)
      Case 0, 1:
         SQLStr = "NULL"
      Case 2, 3, 4, 5, 6:
         sTemp = "" & pvValue
         sTemp = Replace(sTemp, "'", "''")
         SQLStr = "'" & sTemp & "'"
      Case 7: 'DateTime
         sTemp = FormatDateTime(pvValue)
         sTemp = Replace(sTemp, "'", "''")
         SQLStr = "'" & sTemp & "'"
      Case 8: 'String
         sTemp = pvValue
         sTemp = Replace(sTemp, "'", "''")
         If Len(Trim(sTemp)) > 0 Then
            SQLStr = "'" & sTemp & "'"
         Else
            SQLStr = "NULL"
         End If
      Case Else
         SQLStr = "NULL"
   End Select
End Function

Conclusion :


Vélà ça peut tjs servir (ça sert même moult ;o)

@tte et bonn' prog'
pi0up51

A voir également

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.