Attribute VB_Name = "modSQL"
'==============================================================================
'
' File   : SQL.bas
' Date   : 18.03.1999
' Version: 1.00
' Author : Andreas Schmidt, lindner&partner
'
'==============================================================================
'
' *shared*
'
' Hilfsfunktionen für die Klassen CSQL und CRecordset.
'
'==============================================================================
'
' History:
'
' Date   : 18.03.1999
' Version: 1.00
' Author : Andreas Schmidt, lindner&partner
'
' Erste dokumentierte Version.
'
'==============================================================================

Option Explicit

' @param s      String, der in ein SQL-Statement gesetzt werden soll
' @param bTicks true = String soll von einfachen Hochkommans umschlossen werden
'
Public Function stringToSQLString(ByVal s As String, Optional bTicks As Boolean) As String
    Dim i As Long
    
    If IsMissing(bTicks) Then bTicks = True
    
    i = -1
    Do
        i = InStr(i + 2, s, "'")
        If i = 0 Then Exit Do
        s = Left$(s, i) & "'" & Mid$(s, i + 1)
    Loop
    
    If bTicks Then
        stringToSQLString = "'" + s + "'"
    Else
        stringToSQLString = s
    End If

End Function

' Date/Time in das Format #9/3/68 3:00:00 PM# bringen.
'
' @param dDateTime  Datum, das in ein SQL-Statement gesetzt werden soll
'
Public Function dateToSQLString(dDateTime As Date) As String
    Dim i As Integer
    Dim c As String
    Dim sRet As String
    Dim sDateTime As String
        
    On Error Resume Next
    sDateTime = Format$(dDateTime, "mm/dd/yy hh:mm:ss AM/PM")
    
    For i = 1 To Len(sDateTime)
        c = Mid$(sDateTime, i, 1)
        If c = "." Then
            sRet = sRet & "/"
        Else
            sRet = sRet & c
        End If
    Next i
    
    dateToSQLString = "'" + sRet + "'"
    
End Function

' @param d      Double, das in ein SQL-Statement gesetzt werden soll
'
Public Function doubleToSQLString(d As Double) As String
    Dim i As Long
    Dim s As String
    
    s = Format$(d)
    i = InStr(1, s, ",")
    If i > 0 Then
        s = Left(s, i - 1) & "." & Right(s, Len(s) - i)
    End If
    
    doubleToSQLString = s
End Function


' @param Value      Wert, der in einen SQL-Statement verwendet werden soll
'
Public Function ValueToSQLString(Value As Variant) As String
    Dim i As Long
    Dim s As String
    
    s = Format$(Value)
    i = InStr(1, s, ",")
    If i > 0 Then
        s = Left(s, i - 1) & "." & Right(s, Len(s) - i)
    End If
    
    ValueToSQLString = s
End Function