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