anchor.diff:                      | Some v -> v
                       | None -> failwith "Error - you cannot delete an entity that does not have a primary key."
                   cmd.Parameters.AddWithValue("@id",pkValue) |> ignore
  -                ~~(sprintf "DELETE FROM %s WHERE %s = ?" entity.Table.FullName pk )
  +                ~~(sprintf "DELETE FROM %s WHERE %s = ?" entity.Table.Name pk )
                   cmd.CommandText <- sb.ToString()
                   cmd
   
  
positive.code:             sprintf "SELECT * FROM `%s`" table.Name
  
          member this.GetIndividualQueryText(table,column) =
              sprintf "SELECT * FROM `%s` WHERE `%s`.`%s` = @id" table.Name table.Name column
          
          member this.GenerateQueryText(sqlQuery,baseAlias,baseTable,projectionColumns) = 
              let sb = System.Text.StringBuilder()
  
negative.code:                 
                  let pkParam = OdbcParameter(null, pkValue)
  
                  ~~(sprintf "UPDATE %s SET %s WHERE %s = ?;" 
                      entity.Table.Name
                      (String.Join(",", data |> Array.map(fun (c,p) -> sprintf "%s = %s" c "?" ) ))
                      pk)
  
                  cmd.Parameters.AddRange(data |> Array.map snd)
  