Function FieldExist

En liten funktion jag gjort för att kolla om ett fält finns i en tabell finns eller inte. Skicka med din connectionstring, vilken tabell och vilket fält, så får du tillbaks true om fältet finns eller false om det inte finns.

'** Checks if the strField exists in strTable.
Function FieldExist( conStr , strTable , strField )

  Set rs = Server.CreateObject("ADODB.Recordset")
  strSQL = "SELECT Top 1 * FROM " & strTable
  rs.Open strSQL, conStr

  For i = 0 to rs.Fields.Count - 1
    If strField = rs.Fields(i).Name Then
      bolCheck = true
      Exit For
    End If
  Next
  
  rs.close
  Set rs = nothing
  
  If bolCheck Then
    FieldExist = true
  Else
    FieldExist = false
  End If

End Function