Petites fonctions entre amis

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 952 fois - Téléchargée 37 fois

Contenu du snippet

Quelques fonctions utiles pour l'utilisation de base de données genre SQL ...

Source / Exemple :


'Une fonction qui traduit du texte
'Tout le monde sait qu'il n'y a rien de plus embêtant que de perdre du temps
'a cause des cotes et boubles-cotes.
'Donc la fonction transforme les ' en ''
'et ajoute au début et fin de variable un '
'Cette fonction réagit en fonction du TYPE de variable

Function SQLStr(sValue)
Dim sTemp
Select Case VarType(sValue)
	case 0, 1:
		SQLStr = Null
	Case 2, 3, 4, 5, 6:
		sTemp = "" & sValue
		sTemp = Replace(sTemp, "'", "''")
		SQLStr = "'" & sTemp & "'"
	Case 7:
		sTemp = FormatDateTime(sValue)
		sTemp = Replace(sTemp, "'" , "''")
		SQLStr = "'" & sTemp & "'"
	Case 8:
		sTemp = sValue
		sTemp = Replace(sTemp, "'", "''")
		if Len(Trim(sTemp)) > 0 Then
			SQLStr = "'" & sTemp & "'"
		Else
			SQLStr = Null
		End If
	Case Else
		SQLStr = Null
	End Select
End Function

'Met en forme une DATE
Function SQLDate(sValue)
setLocale("fr-fr")
Select Case VarType(sValue)
	Case 7:
		SQLDate = "#" & sValue & "#"
	Case 8:
		If isDate(sValue) Then
			SQLDate = "#" & sValue & "#"
		End If
	Case Else
		SQLDate = Null
	End Select
End Function

'Transforme une VALEUR NUMERIQUE
Function SQLVal(sValue)
Dim sTemp
Select Case VarType(sValue)
	Case 0, 1:
		SQLVal = null
	Case 2, 3, 4, 5, 6:
		SQLVal = "" & sValue
	Case 8:
		sTemp = Trim(sValue)
		On Error Resume Next
		SQLVal = "" & CInt(sTemp)
		If Err.Number <> 0 Then
			Err.clear
		SQLVal = null
		End If
	End Select
End Function

Function FVal(sValue)
Dim sTemp
Select Case VarType(sValue)
	Case 0, 1	:
		FVal = 0
	Case 2, 3, 4, 5, 6:
		FVal = sValue
	Case 8:
		sTemp = Trim(sValue)
		On Error Resume Next
		FVal = CInt(sTemp)
		If Err.Number <> 0 Then
			Err.clear
			FVal = 0
		End If
	End Select
End Function

Conclusion :


Bon travail a toutes et tous

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.