famfixmod.bas

来自「信息管理」· BAS 代码 · 共 36 行

Attribute VB_Name = "famfixmod"
Public DatabaseName As String
Public Database_Password As String
Public Database_Path As String


'============================================================================================================
'Original Author : By: Gaetan Savoie
'Used To Format a SQL string incase it has an Apostrophe [']
'============================================================================================================
Public Function Apostrophe(sFieldString As String) As String
  If InStr(sFieldString, "'") Then
     Dim iLen As Integer
     Dim ii As Integer
     Dim apostr As Integer
     iLen = Len(sFieldString)
     ii = 1
     
     Do While ii <= iLen
        If Mid$(sFieldString, ii, 1) = "'" Then
           apostr = ii
           sFieldString = Left$(sFieldString, apostr) & "'" & _
           Right$(sFieldString, iLen - apostr)
           iLen = Len(sFieldString)
           ii = ii + 1
         End If
         ii = ii + 1
     Loop
  End If
  Apostrophe = sFieldString
End Function
'============================================================================================================
'============================================================================================================